Discussion :

[Pitou5464]

Salut à tous,

Je voudrais récupérer les valeurs d'une liste de valeurs sans avoir a les selectionner. Je voudrais qu'il prenne les valeurs de chaque item de la liste sans les selectionner. Est ce que c'est possible déja?

Code :

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

1
2
3
4
Dim wcmp As Variant
    For wcmp = 0 To Me.NAF.ListCount - 1
    str = str & " " & e & " T_EntrepriseContact.CODENAF Like '*" & Me.NAF.ItemData(wcmp) & "*'"
    Next wcmp

[Muhad'hib]

Salut,

Oui c'est possible. Ta solution fonctionne d'ailleur !
Tu peux aussi utiliser Me.NAF.Column(N°delacolonne, wcmp) si tu as plusieurs colonne dans ta zone de liste et si tu veux récupérer les données d'une autre colonne.

A+

[Pitou5464]

ma solution ne marche pas. Je suis obligé de séléctionner un élément dans la liste pour que ça marche alors que je veut qu'il me récupere toutes les itemdata de la liste sans les selectionner.

[Invité]

Ton code est placé dans quel évènement ?

[Pitou5464]

sur un bouton evenement sur click, pourquoi?

[Invité]

Si tu as mis ton code dans l'évènement sur clic,
il faut donc que tu cliques dans ta liste pour que cela fonctionne, non !?

[Pitou5464]

Tu n'as pas compris, c'est sur l'événement d'un bouton qui n'a rien a voir avec la liste.

[LE VIEUX]

essayes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub afficheListe()
Dim liste As Control
Dim val As String
Dim rst As Integer
Set liste = Forms![MonFormulaire]!MonControl
Nb = liste.ListCount - 1
 
For rst = 0 To Nb
val = liste.ItemData(rst)
Debug.Print val
Next
End Sub