XL 2010 Colorier la demande

CATPLUS

XLDnaute Junior
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
 

Pièces jointes

  • Couleur_de_la_demande.xlsm
    22.8 KB · Affichages: 11
  • Couleur_de_la_demande.xlsm
    22.8 KB · Affichages: 3
Solution
Bonjour,

Ce n'est pas le label qu'il faut tester, mais ma combobox
VB:
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

Rouge

XLDnaute Impliqué
Bonjour,

Ce n'est pas le label qu'il faut tester, mais ma combobox
VB:
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
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil

Une autre syntaxe possible
(Juste parce qu'il faut bien s'occuper quand confinement oblige;))
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec