OUPS !!! cell Format Suite_4

[Blandine]

MERCI BCP STéphane

C'est presque ça car je souhaite le formattage avec une virgule 100,00 €
Comment mofifier car j'ai essayé de changé le point en virgule mais ça ne le fait pas ?!!!

sub Test4 ()
Range("C2").Value = Format([B2], """total = ""#,##0.00 €")
Range("C2").Characters(Start:=Len("total = "), _
Length:=Len("total = " + [B2].Text)).Font.ColorIndex = 3
End Sub

 

[LeChat]

Si tu avais lu tes précédent messages, tu aurais vu que je t'avais déjà répondu.
Avec cette variante cela devrait marché ! Tu reprend ainsi le même format
que la cellule contenant les 100€.

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

 

[Blandine]

C'est pas très sympa de me dire que je n'ai pas lu mes précédentes réponses, chose que naturellement je fais puisque j'ai posée ma question!

Bref essaye ton code car le tien ne fonctionne pas du tout par rapport à ma demande...

MERCI

 

[pat5]

On ne s'énerve pas ......