Combobox avec couleurs
kumpb
Messages postés
78
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Combobox avec couleurs
- La boite à couleurs - Télécharger - Divers Photo & Graphisme
- Légende couleurs google maps - Accueil - Transports & Cartes
- Remettre les couleurs d'origine android - Forum LG
- Couleurs rj45 - Forum câblage
- Inverser les couleurs - Forum Illustrator
5 réponses
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
je voudrai remplacer les chiffres par des fonds de couleur
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+
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+
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+
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+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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+
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+
