[Format personnalisé et macro] RESOLU

[magnan.rci]

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é]

Re : [Format personnalisé et macro]

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

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]

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.