[Format personnalisé et macro] RESOLU

magnan.rci · 15 Avril 2013

Bonjour,
Comment, par macro, créer un format personnalisé du type :
# ##0" Bidule";-"# ##0" Bidule"
sachant que dans une feuille (Essai) la cellule A1 contient le texte qui sera inscrit en fin de saisie.
Si l'opérateur dans essai!A1 saisit KT pour kiloTonne, il faudrait que dans une autre cellule ou il va saisir ses prévisions (789) s'affiche 789 KT afin que par la suite on puisse réutiliser cette saisie.
Le pb est que chaque intervenant peut saisir sa propre unité (Biscuits, avions, ...).
Un copier coller ne fonctionne pas et je n'arrive pas à insérer un nom de variable dans le format personnalisé.
Merci d'avance.
bonne journée.

Efgé · 15 Avril 2013

Re : [Format personnalisé et macro]

Bonjour magnan.rci,
Unje proposition.
Il faudra adapter les noms dze feuilles et les adresses de cellules.

VB:

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

Cordialement

magnan.rci · 15 Avril 2013

Re : [Format personnalisé et macro]

Bonjour,
Merci pour cette réponse qui me convient parfaitement.
Je vais comparer avec mes essais pour tenter de trouver mon erreur.
Bonne journée.

[Format personnalisé et macro] RESOLU

magnan.rci

Guest

Efgé

XLDnaute Barbatruc

magnan.rci

Guest

Discussions similaires

[Format personnalisé et macro] RESOLU

magnan.rci

Guest

Efgé

XLDnaute Barbatruc

magnan.rci

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency