XL 2010 Colorier la demande

R

Rouge

XLDnaute Impliqué

• 7 Novembre 2020

• #2

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

 

Vote positif 0 Vote négatif

Solution

C

CATPLUS

XLDnaute Junior

• 7 Novembre 2020

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Novembre 2020

• #4

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

 

Vote positif 0 Vote négatif

C

CATPLUS

XLDnaute Junior

• 6 Décembre 2020

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Décembre 2020

• #6

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é 😉

 

Vote positif 0 Vote négatif

C

CATPLUS

XLDnaute Junior

• 23 Décembre 2020

• #7

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

 

Vote positif 0 Vote négatif