Discussion :

[mulfycrowh]

Bonjour à tous et bonne année!

Voilà.
J'ai une Combobox qui pour l'instant est gérée par une couleur de premier plan (ForeColor) noire.
Lorsque l'utilisateur effectue une sélection parmi les différents choix de la Listbox, je souhaiterais afficher le choix avec une couleur donnée, par exemple, rouge.

L'idée serait de forcer la couleur noire lorsque la Listbox se déroule et forcer la couleur rouge lorsque la Listbox se referme.

Je n'ai pas trouvé d'événement permettant de faire cela.

Merci pour votre aide.

[jurassic pork]

Hello,
tu peux essayer d'utiliser l'événement DropButtonClick : il se produit une première fois lorsque l'on clique sur le bouton qui ouvre la liste de sélection et il se produit lorsque l'on a choisi son élément et que la liste se referme. Avec une variable globale booléenne on commute la couleur au premier événement et au deuxième événement. Exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim FlipFlop As Boolean
 
Private Sub UserForm_Initialize()
FlipFlop = True
ComboBox1.List = Array("Element1", "Element2", "Element3")
End Sub
 
Private Sub ComboBox1_DropButtonClick()
'Debug.Print "Drop"
If FlipFlop Then
   ComboBox1.ForeColor = vbBlack
   FlipFlop = False
Else
   ComboBox1.ForeColor = vbRed
   FlipFlop = True
End If
End Sub

Ami calmant, J.P

[mulfycrowh]

Bonjour,

Merci d'avoir identifié l'événement que je cherchais.
Cela fonctionne à la perfection.