XL 2010 Colorier la demande

[CATPLUS]

Bonjour à tous
S'il vous plait pourriez-vous m'aider à résoudre ce probléme.
Dans l'UserForm il y a une ComboBox avec plusieurs Label (A, B, C)
La question quand on clique sur A il passe en rouge et B & C en vert => Correct,
En répétant la même fonction je n'arrive pas:
en cliquant sur B le passer en rouge et A & C en vert
en cliquant sur C le passer en rouge et A & B en vert
Cordialement

 

[Rouge]

Bonjour,

Ce n'est pas le label qu'il faut tester, mais ma combobox

Private Sub ComboBox1_Change()
    If ComboBox1.Text = "A" Then
        Label1.ForeColor = &HFF&
        Label2.ForeColor = &H54C738
        Label3.ForeColor = &H54C738
    ElseIf ComboBox1.Text = "B" Then
        Label1.ForeColor = &H54C738
        Label2.ForeColor = &HFF&
        Label3.ForeColor = &H54C738
    ElseIf ComboBox1.Text = "C" Then
        Label1.ForeColor = &H54C738
        Label2.ForeColor = &H54C738
        Label3.ForeColor = &HFF&
    End If
End Sub

Cdlt

 

[CATPLUS]

Merci(s) pour la réponse rapide et la solution.

 

[Staple1600]

Bonjour le fil

Une autre syntaxe possible
(Juste parce qu'il faut bien s'occuper quand confinement oblige)

Private Sub ComboBox1_Change()
Lettres = Array("A", "B", "C")
Couleurs = Array(Array(vbRed, vbGreen, vbGreen), Array(vbGreen, vbRed, vbGreen), Array(vbGreen, vbGreen, vbRed))
    With Application
        Label1.ForeColor = Couleurs(.Match(ComboBox1.Text, Lettres, 0) - 1)(0)
        Label2.ForeColor = Couleurs(.Match(ComboBox1.Text, Lettres, 0) - 1)(1)
        Label3.ForeColor = Couleurs(.Match(ComboBox1.Text, Lettres, 0) - 1)(2)
End With
End Sub

 

[CATPLUS]

Bonjour Staple 1600
Cette réponse fonctionne parfaitement.
Merci avec un peu de retard.

 

[Staple1600]

Bonjour le fil, CATPLUS

=>CATPLUS
Le principal c'est que:
1) cela fonctionne (mais cela je le savais déjà )
2) que tu reviennes pour un petit feedback ou merci
C'est apprécié

 

[CATPLUS]

Bonjour
Désolé, le 6 décembre j'avais exprimé mes remerciements et rajouté en Résolu.
Cordialement