OUPS !!! cell Format Suite_3

[Blandine]

Tout d'abord un grand merci à :
LeChat, Robert, Sylvain

Le code est incomplet...

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

1- en VBA je dois concaténer une cellule en C2 qui doit être égal à :
TOTAL = 100,00 € ( tout en chaine de texte 100,00 € compris! )

à partir du contenu des cellules
A1 avec "TOTAL =" (en texte)
B1 avec "100" (en texte)

2-De plus seulement la chaine modifiée de texte "100,00 €" sera de couleur rouge

MERCI bcp pour votre aide et renseignements...
Blandine

 

[STéphane]

bonjour


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


bye
stephane