Balayer toutes les valeurs d'une liste déroulante

[Fred.dz]

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.

[Simplifi]

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

[Philippe JOCHMANS]

Bonjour

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.

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

[LedZeppII]

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+