vba excel changer la couleur de deux variables texte dans une cellule

[zephir94]

Bonjour à tous,

Je voudrais colorier un texte que j'écris dans une cellule par le biais d'une variable issu d'une Combobox et d'une textbox .
Comme je copie deux fois cette variable dans une feuille et que je ne veux la mettre en rouge que dans l'une des deux, colorier à la source ne me fera pas avancer !

J'ai donc essayé comme ceci :

 w = ComboBox2.Text & " " & ":"
   x = TextBox2.Text
   Range("D" & i) = w.Font.Color = vbRed & x.Font.Color = vbBlack

La syntaxe me manque cruellement car cela ne fonctionne pas !

Merci par avance pour vos aides

Zephir

 

[job75]

Re : vba excel changer la couleur de deux variables texte dans une cellule

Bonsoir zephir94,

w = ComboBox2 & " : "
x = TextBox2
i = 2 'pour tester
Range("D" & i) = w & x
Range("D" & i).Characters(1, Len(w)).Font.Color = vbRed
Range("D" & i).Characters(Len(w) + 1, Len(x)).Font.Color = vbBlack

Variante :

w = ComboBox2 & " : "
x = TextBox2
i = 2 'pour tester
Range("D" & i) = w & x
Range("D" & i).Characters(1, Len(w)).Font.Color = vbRed
Range("D" & i).Characters(Len(w) + 1).Font.ColorIndex = xlAutomatic

Bonne fin de soirée.

 

[zephir94]

Re : vba excel changer la couleur de deux variables texte dans une cellule

Un grand merci Job75,

Cela fonctionne à merveille, j'étais très loin du compte !

merci beaucoup