> Tous les forums > Forum Bureautique
 [Unité personnalisée par macro Excel] Résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Magnan
  Posté le 13/04/2013 @ 12:25 
Aller en bas de la page 
Astucien

Bonjour,

dans un classeur j'ai une cellule dans laquelle l'utilisateur indique l'unité dans laquelle il travaille (Kg, K€, piéce, ...]

chaque utlisateur peut donc indiquer "son" unité.

D'autres feuilles de calcul doivent reprendre cette unité (Cellule d'affichage et/ou issues de calculs).

Comment par une macro récupéré cette unité, pour l'intégrer dans un format personnalisé afin que les celllules affichent le résultat et l'unité ?

Ppar exemple :

Feuille parametre

Cellule C10

Contenu : individu

C'est l'unité de l'utilisateur

Feuille resulat

Cellule Z39

Contenu : =recherchev(C9;zone;4)

Resultat obtenu : 45,00

Résultat souhaité : 45,00 individu

Sachant que le contenu de parametre!C10 peut, à son tour, être utilisé dans une autre formule.

Créer un format personnalisé, je sais faire. Mais il ne s'agit pas d'un format mais de nombreux formats.

Merci d'avance.



Modifié par Magnan le 15/04/2013 18:51
Publicité
ferrand
 Posté le 14/04/2013 à 10:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Résultat souhaité : 45,00 individu

Tu subdivises les "individus"

Dans ce cas tu pourrais avoir un format de nombre tel que : 0" individus" ou 0" individus";; selon choix

A-priori je pense qu'il te faut faire une macro qui à la sélection d'un unité formate formate les cellules concernées au format de nombre pré-établi pour cette unité.

Mais pour compléter je ne pense pas que simplement inscrire un nom d'unités quelconque dans une cellule te permette des formats élaborés. D'où je conseillerais volontiers, choix d'unités sur liste, assorti d'une procédure d'ajout d'unités à la liste en définissant le format pour l'unité ajoutée (et affectation du format à une cellule témoin, identifiable par une recherche à partir du choix dans la liste, de façon à prélever le format voulu par la propriété NumberFormat [beaucoup plus confortable dans une macro que d'avoir à écrire certains formats plus ou moins remplis de guillemets...]).

Magnan
 Posté le 15/04/2013 à 15:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Voici le code qui fonctionne :

Sub test()
Dim Unite As String Unite = Sheets("Feuil1").Range("$A$1").Value
Sheets("Feuil1").Range("$C$1").NumberFormat = "#,##0" & """ " & Unite & """;""-""#,##0" & """ " & Unite & """"
End Sub
Bonne journée.
Je marque le sujet comme étant résolu.
Boogie Palace
 Posté le 15/04/2013 à 17:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour,

pour marquer un sujet comme résolu sur ce forum :

Magnan
 Posté le 15/04/2013 à 18:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Merci Boogie Palace pour tes chauds conseils.;

Forumeur sur PCASTUCES depuis tres trés longtemps je sais ce qu'il faut faire ne t'en déplaise.

Mais, je dois être poursuivi par une sacre guigne depuis de si nombreuses années.

Malgré la coche bien souvent la mention RESOLU n'apparait pas. D'ou mon ajout dans le titre.

Il te faudra faire avec

Là je viens d'y arriver en changeant de navigateur. Chrome au lieu de Crazy Browser.

A+



Modifié par Magnan le 15/04/2013 18:55
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
279,99 €Casque sans fil Bose Headphones 700 à 279,99 €
Valable jusqu'au 28 Janvier

Boulanger fait une promotion sur l'excellent casque sans fil Bose Headphones 700 qui passe à 279,99 € une fois ajouté au panier au lieu de 319 €. En plus d'un son incroyable, ce casque offre 11 niveaux de réduction active de bruit vous permettent de profiter de la musique, des podcasts, des vidéos et des appels, sans distraction. Un système de microphones révolutionnaire s’adapte aux environnements bruyants et venteux afin de restituer votre voix avec une clarté incroyable lors de vos appels. Vous permet également d'accéder facilement aux assistant vocaux Google et Alexa. Autonomie jusqu'à 20 heures.


> Voir l'offre
SOLDESLes soldes d'hiver 2022
Valable jusqu'au 08 Février

Les soldes commencent ce Mercredi 12 Janvier dans la plupart des départements Retrouvez ici la liste des pages dédiées à cet évènement chez les différents revendeurs high-tech afin de trouver la bonne affaire qui vous intéresse. Nous vous proposerons aussi les bons plans que nous aurons dénichés.


> Voir l'offre
219 €TV 32 pouces Toshiba FHD Android TV à 219 €
Valable jusqu'au 29 Janvier

Electro Depot fait une promotion sur la télévision 32 pouces Toshiba FHD Android TV à 219 €. Cette TV de 32 pouces (80 cm) offre une résolution FHD de 1920x1080 pixels. Elle possède un Tuner TNT HD, 1 port USB et 3 ports HDMI. Elle offre également des connexions sans fil WiFi et Bluetooth (pour y connecter un casque par exemple). Elle est compatible Google Assistant et tourne sous Android TV (vous pourrez lui installer des applications via Google Play : Netflix, YouTube, MyCanal, Molotov, Disney+, Plex, etc). Idéal pour une chambre.


> Voir l'offre

Sujets relatifs
Mot de passe sur une Macro Excel [résolu]
Excel macro positionnement texte Résolu
excel macro selection cellules vides Résolu
excel: macro sur feuille protégée ?..(résolu)
Autoriser macro sous excel 2002 -résolu-
RESOLU Macro Excel. Arrière plan et récuperation
Excel: Macro sans defilement écran: RESOLU
Macro Excel pour masquage conditionnel - Résolu
RESOLU Excel - Lancement de macro automatique
2 pages par feuille dans macro excel
Plus de sujets relatifs à [Unité personnalisée par macro Excel] Résolu
 > Tous les forums > Forum Bureautique