Utilisation d'une ComboBox

Hello,

Quelqu'un sait-il si il est possible de créer une ComboBox dans laquelle les labels sont assignés a des valeurs ?

Ex :
Labels : Lundi, Mardi, Mercredi, ...
Valeurs : 1, 2, 3, ...

Merci de votre aide

Bonjour,

Par défaut, les valeurs dans une comboBox sont déjà numérotées.
La première valeur de la combobox est 0.

donc tu peux utiliser pour

Jour = maCombo.listindex
ImpressionPlanning (Jour)

Par exemple ^^
Je en connais pas ton contexte

Je ne comprend pas bien ta solution.

Voici mon code en exemple :

Code:

---

1 2 3

Private Sub UserForm_Initialize() ComboBox1.List = Array("Lundi", "Mardi", "Mercredi","Jeudi", "Vendredi","Samedi","Dimanche) End Sub

---

J'aimerais assigner la valeur 1 pour les 5 premiers jours et 0 pour le week-end

dans quel but tu veux assigner ca? je pense avoir besoin de cette information pour voir dans quelle direction aller ^^

Après je veux récupérer la valeur de jour et colorer la cellule en vert si c'est la semaine ou en bleu si c'est le week-end.

Pour l'instant j'utilise un case en sortie mais j'aimerais savoir si il est possible de le faire directement ?

revois la synthaxe mais l'idée est la ^^

Code:

---

1 2 3 4 5

If combobox.ListIndex < 5 Then combobox.colorback = "tacouleur" Else combobox.colorback = "autrecouleur" End If

---

en gros Lundi est stocké en 0 sur la combo
et samedi en 5
donc si la valeur de la combo est inferieure à 5 tu mets la couleur que tu souhaites sinon une autre
utilises l'evenement Change

C'est parfait, Merci :ccool: