Balayer toutes les valeurs d'une liste déroulante

Bonjour,

Voici mon problème. J'ai une liste déroulante avec des valeurs dedans. Dans certains cas je voudrais effectuer une boucle sur chacun des élements de la liste déroulante.

En pseudo code ça donnerais un truc comme:

Code:

---

1 2 3 4 5

Dim var as string   For each var in Elements de la Listbox ... Next

---

Le problème c'est que je sais pas comment dire ça en VBA. J'ai essayé Listbox.Itemdata mais sans succès.

Merci d'avance.

Hello
il faut balayer le listbox.recordset
pour les méthodes d'utilisation des recordset voir les tuto

Bonjour

Citation:

---

Envoyé par Fred.dz

Voici mon problème. J'ai une liste déroulante avec des valeurs dedans. Dans certains cas je voudrais effectuer une boucle sur chacun des élements de la liste déroulante.

---

:koi: je ne comprends pas, si tu as une liste déroulante, c'est qu'elle a une source, donc pourquoi ne pas prendre la source ? Ce serait plus simple que de lister les éléments un à un, non ?

Philippe

Bonjour,

Avec un For ... Next classique.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim lgRow As Long Dim strMsg As String   For lgRow = 0 To Me.cboRefProduit.ListCount - 1 strMsg = "Valeur colonne liée : " & Nz(Me.cboRefProduit.ItemData(lgRow), "Null") strMsg = strMsg & vbCrLf & vbCrLf strMsg = strMsg & "Colonne 1 : " & Me.cboRefProduit.Column(0, lgRow) & vbCrLf strMsg = strMsg & "Colonne 2 : " & Me.cboRefProduit.Column(1, lgRow) If MsgBox(strMsg, vbOKCancel) = vbCancel Then Exit For Next

---

A+