Couleur de police pour Combobox .ForeColor ...

[Temjeh]

Bonsoir à tous et merci d'avance!

Je cherche la syntaxe pour lui dire de changer ici la couleur de police...
Ici le .ForeColor = 3 ou .ForeColor = 5 ne fonctionne pas:

Private Sub ComboBox1_Change()
 With ComboBox2
  Select Case ComboBox1

  Case "Liste 1"
     ComboBox2.Clear
    .AddItem "Pomme"
    .AddItem "Banane"
    .AddItem "Raisin"
    .ListIndex = 1
    .ForeColor = 3

  Case "Liste 2"
     ComboBox2.Clear
    .AddItem "Rouge"
    .AddItem "Bleu"
    .AddItem "Vert"
    .ListIndex = 1
    .ForeColor = 5

  End Select
 End With

End sub

Cordialement

Temjeh

 

[Temjeh]

Re : Couleur de police pour Combobox .ForeColor ...

Merci j'ai trouvé avec RGB

.ForeColor = RGB(0,85,229)

Temjeh

 

[Hervé]

Re : Couleur de police pour Combobox .ForeColor ...

bonjour temjeh


sinon, tu peux utiliser des chiffres au lieu des rgb :

.ForeColor = 16711680 'bleu
.ForeColor = 255 'rouge

salut