Discussion :

[BOU59000]

Bonjour à toutes et à tous,

J'ai créé un Userform qui contient une Combobox.
Cette combobox contient x données qui sont reprises depuis une page du classeur.
Chacune des données est classée par catégorie suivant une couleur définie.
J'aimerai retrouver ces différentes couleurs dans ma combobox avant de sélectionner la donnée en question (garder le système de repérage par couleurs que je peux avoir sur ma page Excel).

Comment faire?

Pour le moment j'arrive simplement à changer la couleur de l'ensemble de ma combobox par l'intermédiaire de .interior.color

Merci d'avance.

[chyanon]

Bonsoir BOU,

Ci-dessous un code qui va mettre la couleur de ta cellule dans ta combobox(suivant sélection):

J'ai fais l'essai et ca marche impeccable !

Code pour un userform avec une combo:

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
18
19
20
 
Private Sub UserForm_Initialize()
Dim cel
Dim col As Integer
For Each cel In Range("A1:A10")
If cel <> "" Then ComboBox1.AddItem cel.Value
Next cel
End Sub
 
Private Sub ComboBox1_Change()
Dim cel
Dim col1
 
For Each cel In Range("A1:A10")
If cel.Text = ComboBox1.Value Then
col1 = "&h" & Hex(cel.Interior.Color)
ComboBox1.BackColor = col1
End If
Next cel
End Sub

Bonjour BOU,

Je viens de te relire, et je crois que j'ai répondu a côté de ta question.

Si tu veux plusieurs couleurs dans la liste de ta combobox , je ne crois pas que ce soit possible.

Si c'est faisable, je suis aussi preneur !

[patricktoulon]

bonjour

je comfirme ca n'est pas possible avec un combobox

parcontre avec un listview "oui!!!" tu a un exelent tuto sur la question

au plaisir

[BOU59000]

Dommage que ce ne soit pas possible

Merci pour vos réponses