combobox avec couleurs Fermé

Question

Bonjour,


j'ai créé une combobox dans une userform qui va lire une liste de nombres sur une feuille appelée couleurs

Sub UserForm_Initialize()       

  ComboBox1.List = Sheets("Couleurs").Range("liste1").Value 
                                                            
End Sub

Liste1 est une liste que j'ai créé dans la feuille couleurs avec les nombres pris pour les mettre dans la combobox
j'ai commencé comme ça pour faire marcher la box dans un premier temps avant de les remplacer par des couleurs 

Maintenant je voudrai remplacer ma liste de nombres par des couleurs et les afficher dans ma combobox afin d'en choisir une. Comment dois je procéder.

merci

lermite222 · Answer

Bonjour,
Pas fort clair ton explication, essaye de développer !
A+

kumpb · Answer

j'ai actuellement une combobox qui deroule une liste de chiffres définis sur une feuille.( feuille couleurs)
je voudrai remplacer les chiffres par des fonds de couleur

Mike-31 · Answer

Salut

Nommes ta plage contenant les cellules de tes différentes couleurs exemple couleurs

et colle ces deux codes dans le VBA


Private Sub ComboBox1_Change()
Me.ComboBox1.BackColor = _
     Range("couleurs")(Me.ComboBox1.ListIndex + 1).Interior.Color
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.BackColor = _
     Range("couleurs")(Me.ComboBox1.ListIndex + 1).Interior.Color
End Sub

A+

lermite222 · Answer

Si j'ai bien compris
Dans un Combo il n'est pas possible de mettre des couleurs par lignes.
Voir avec un Frame et des labels que tu afficherais à la place du combo.
A+

Mike-31 · Answer

Salut mes amis,

Je viens de trouver une discussion intéressante, je vous invite à regarder le post 10 et surtout d'ouvrir la pièce jointe  mDF_ComboCouleurs.zip,  proposé par myDearFriend! 

sur ce lien

https://www.excel-downloads.com/threads/texte-en-couleurs-dans-menu-deroulant-tres-interressant.68146/

A+

Combobox avec couleurs

5 réponses

Discussions similaires