number format

[gerome1980]

Bonjour,

voila j'ai la macro suivante pour changer le format d'une cellule:

Sub azerty()
masse = Array('kg', 't')
poids = Array('N', 'daN', 'kN', 'MN')
I = masse(0)
'MsgBox (I)
Selection.NumberFormat = '0.00' & I
End Sub

seulement ça ne marche pas; je voudrais que le format soit '0.00 kg'. Est-ce un problème de syntaxe dans la ligne selection.numberformat?

Merci pour votre aide,

Jerome

 

[Charly2]

Bonsoir gerome1980, bonsoir à toutes et à tous 🙂

Chez moi, ton code donne le format souhaité. Peut-être peux-tu essayer ceci :

Sub azerty()
'
Dim Masse
Dim I As String
'
  Masse = Array('kg', 't')
  I = Masse(0)
  Range('A1').NumberFormat = '0.00'' ' & I & ''''
End Sub

A suivre...

A+ 😉

 

[gerome1980]

Bonjour Charly2,

j'ai essayé ton code et ça marche bien !

Merci beaucoup, bonne journée,

Jerome