Condition dans une combobox

Bonsoir,

J'aimerais savoir comment faire pour ajouter dans ma combobox les éléments de la seconde colonne dont la première est "coca". Ici par exemple, il y aurait dans ma combobox, 12, 14, 12.
coca 12
jus 10
eau 12
café 14
vin 13
coca 14
coca 12
vin 10

J'ai mis ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Change() i = 0   While Selection.Offset(0, 0).Value <> "" If Selection.Offset(0, 0).Value = "coca" Then ComboBox1.AddItem (Selection.Offset(0, 1).Value) i = i + 1 End If Selection.Offset(1, 0).Select Wend

---

Je suis débutante...
Merci beaucoup

Bonsoir,

Je ne crois que tu doives utiliser l’événement Change du Combo : une éventuelle mise à jour dépend d’un changement dans la feuille pas dans le combo.

Voici un exemple :

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialize() Dim c As Range For Each c In Selection If c = "coca" Then ComboBox1.AddItem c.Offset(0, 1) Next End Sub

---

J’ai utilisé la procédure Initialize du UserForm sur lequel est le Combo, mais l’adaptation est aisée si le Combo est directement sur une feuille par exemple.

Dans ton code, il y a quelque chose qui ne va pas (du tout :(), c’est que la variable i ne sert à rien : elle est incrémentée dans la boucle, mais n’est utilisée nulle part !

Par ailleurs, les boucles For ... Each sont beaucoup plus pratiques pour parcourir les éléments d’une collection (les feuilles d’un classeur ou, comme ici, les cellules d’une plage.

Bon courage. C’est en forgeant qu’on devient forgeron 8-)

Cordialement,