Couleur Ligne Liste Déroulante VBA
Résolu
bobo8388
-
bobo8388 -
bobo8388 -
Bonjour,
J'ai crée une liste déroulante (ci-dessous le code VBA)et j'aimerais savoir comment attribuer une couleur différente à chaque valeur de la liste?
Par exemple "è" en noire
"ì" en bleu
ainsi de suite.
Merci
Code :
With ComboBox1
.AddItem "è"
.AddItem "ì"
.AddItem "î"
ComboBox1.BackColor = vbWhite
End With
J'ai crée une liste déroulante (ci-dessous le code VBA)et j'aimerais savoir comment attribuer une couleur différente à chaque valeur de la liste?
Par exemple "è" en noire
"ì" en bleu
ainsi de suite.
Merci
Code :
With ComboBox1
.AddItem "è"
.AddItem "ì"
.AddItem "î"
ComboBox1.BackColor = vbWhite
End With
A voir également:
- Couleur Ligne Liste Déroulante VBA
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Partager photos en ligne - Guide
- Excel compter cellule couleur sans vba - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
2 réponses
Bonjour
Je ne vois pas l'intéret mais
atention couleurs sous XL2007...
edit: pour choisir tes couleurs
https://www.cjoint.com/?3cppuIlcjq4
auteur: JR Gauthier
Michel
Je ne vois pas l'intéret mais
Option Explicit
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "a"
ComboBox1.BackColor = &HC0FFFF 'vert pale
Case "z"
ComboBox1.BackColor = &HFFFFC0 ' bleu pale
Case "e"
ComboBox1.BackColor = &HFF80FF 'rose violet
End Select
End Sub
Private Sub UserForm_Initialize()
Dim cptr As Byte
ComboBox1.AddItem "a"
ComboBox1.AddItem "z"
ComboBox1.AddItem "e"
ComboBox1.BackColor = &HFFFFFF 'blanc
End Sub
atention couleurs sous XL2007...
edit: pour choisir tes couleurs
https://www.cjoint.com/?3cppuIlcjq4
auteur: JR Gauthier
Michel
Salut michel_m,
Pour info, ça marche aussi sous Excel 2003.
Juste un petit correctif à ton code : bob83833 souhaite changer la couleur des caractères
Il faut donc remplacer BackColor par ForeColor.
En fait, il souhaitait avoir des couleurs préétablies pour chaque caractère, cad : qu'ils apparaissent dans la liste avec chacun sa couleur. Mais je crois que ce n'est pas possible et donc la modification s'impose sur l'ensemble de la liste. Est-ce que je me trompe ?
edit : Autre chose : son combobox est intégré dans la feuille word et dans ce cas le private sub UserForm_Initialize() ne marche pas pour charger les valeurs dans la liste à l'ouverture du fichier. Il faut lui substituer Private Sub Document_Open() qui lui va initialiser les valeurs dans la combobox.
Michel
Pour info, ça marche aussi sous Excel 2003.
Juste un petit correctif à ton code : bob83833 souhaite changer la couleur des caractères
Il faut donc remplacer BackColor par ForeColor.
En fait, il souhaitait avoir des couleurs préétablies pour chaque caractère, cad : qu'ils apparaissent dans la liste avec chacun sa couleur. Mais je crois que ce n'est pas possible et donc la modification s'impose sur l'ensemble de la liste. Est-ce que je me trompe ?
edit : Autre chose : son combobox est intégré dans la feuille word et dans ce cas le private sub UserForm_Initialize() ne marche pas pour charger les valeurs dans la liste à l'ouverture du fichier. Il faut lui substituer Private Sub Document_Open() qui lui va initialiser les valeurs dans la combobox.
Michel
Bonjour
en fait si on lit sa demande, il avait marqué backcolor mais bon!
il souhaitait avoir des couleurs différentes pour chaque caractère...
C'est possible à faire mais bonjour l'usine à gaz !!! Excel n'aime pas trop les "las vegas" ;-) et d'ailleurs je n'en vois encore moins l'utilité que de teinter chaque item...
Attendons donc la réaction de bobxxx
cordialement
en fait si on lit sa demande, il avait marqué backcolor mais bon!
il souhaitait avoir des couleurs différentes pour chaque caractère...
C'est possible à faire mais bonjour l'usine à gaz !!! Excel n'aime pas trop les "las vegas" ;-) et d'ailleurs je n'en vois encore moins l'utilité que de teinter chaque item...
Attendons donc la réaction de bobxxx
cordialement
Pour mieux comprendre de quoi il s'agit, ce fil de discussion est en fait la suite d'un fil sur lequel je viens d'intervenir, d'où mes commentaires.
https://forums.commentcamarche.net/forum/affich-20856630-liste-de-formes-dans-word#p20867902
Je n'avais pas donné suite pour la mise en couleur car ça me paraissait assez complexe et en tout cas hors de mes compétences. Vous confirmez ce que je pensais question usine à gaz !
Michel
https://forums.commentcamarche.net/forum/affich-20856630-liste-de-formes-dans-word#p20867902
Je n'avais pas donné suite pour la mise en couleur car ça me paraissait assez complexe et en tout cas hors de mes compétences. Vous confirmez ce que je pensais question usine à gaz !
Michel
Merci pour vos réponses,
Effectivement c'est bien une couleur pour chaque carractére que je souhaite obtenir, backcolor était simplement là car je souhaitais simplement pouvoir le modifier.
Pour résumer, j'aurais besoin d'une liste déroulante avec 3 valeurs possibles :
une fleche verte vers le haut
une fleche Noire à l'horizontale
une fleche Rouge vers le bas.
Cette liste serait à inserer dans Word mais je pourrais si cela est vraiment necessaire le faire à partir d'excel.
J'espére que cela est plus claire maintenant?
Savez vous donc si cela est possible?
Merci encore pour votre aide
Effectivement c'est bien une couleur pour chaque carractére que je souhaite obtenir, backcolor était simplement là car je souhaitais simplement pouvoir le modifier.
Pour résumer, j'aurais besoin d'une liste déroulante avec 3 valeurs possibles :
une fleche verte vers le haut
une fleche Noire à l'horizontale
une fleche Rouge vers le bas.
Cette liste serait à inserer dans Word mais je pourrais si cela est vraiment necessaire le faire à partir d'excel.
J'espére que cela est plus claire maintenant?
Savez vous donc si cela est possible?
Merci encore pour votre aide
J'ai trouvé le fichier sur cette discussion :https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=19593&start=
Pensez vous que ce soit possible de faire la même chose avec des fleches?
Merci
Je confirme... pas possible.
Salut Michel.. Ta solution change la couleur de TOUT le Combo et la demande est...
couleur différente à chaque valeur de la liste
A+