Discussion :

[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 :

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

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

[Invité]

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.

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 :

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

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+