Discussion :

[ananis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bigalo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,