OUPS! Formattage cell suite!

Blandine · 26 Septembre 2002

MERCI pour l'aide mais mon problème est plus complexe :

1- en VBA je dois concaténer une cellule en B1 qui est égale à la chaine de texte "TOTAL =" avec le contenu de la cellule B2 qui est égal à la chaine de texte 100 pour avoir comme résultat en C2 la chaine de texte
TOTAL = 100,00€

2-De plus 100,00 € sera d'une autre couleur par ex. rouge !!!!

MERCI bcp pour votre aide et renseignements...
Blandine

LeChat · 26 Septembre 2002

essaye ca

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

LeChat

Robert · 26 Septembre 2002

Essaye:
range("C2").value=range("B1").value & format(range("A1").value,"#,##0,00 €")
range("C2").Font.ColorIndex = 3

Blandine · 27 Septembre 2002

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 · 27 Septembre 2002

Bonjour,

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

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

A+

OUPS! Formattage cell suite!

Blandine

Guest

LeChat

Guest

Robert

Guest

Blandine

Guest

sylvain

Guest

Discussions similaires