Oups! Format cell suite_2

[Blandine]

Les code VBA de vous 2 marchent à moitié
en effet la cellule finale contient bien
TOTAL = 100 avec Total en noir et 100 en rouge
mais 100 ne ce formate pas en 100,00 €

MERCI BCP...

 

[sylvain]

Bonjour,

la concaténation donne un texte pour conserver une valeur :

Selection.NumberFormat = """total = ""#,##0.00 €"

A+

 

[LeChat]

avec cette variante cela devrait marché !

Dim T1 As String, T2 As String
T1 = Range("A2").Value
T2 = Format(Range("B2").Value, Range("B2").NumberFormat)
Range("C2").Value = T1 & " " & T2
Range("C2").Characters(Start:=Len(T1) + 2, _
Length:=Len(T2)).Font.ColorIndex = 3

LeChat