Discussion :

[P.Flo]

Bonjour à tous

J'ai à réaliser un fichier Access avec une requête dynamique à partir d'une liste de choix. Un formulaire "Paramètres" permet de choisir les données afin qu'elles puissent être utilisées dans les requêtes dynamiques.
Mon code VBA se décompose en deux du coup, une partie récupération des valeurs choisies et une partie variation des critères de requêtes.
Je rencontre des problèmes sur la première partie. J'ai lu sur internet pas mal de choses en ce qui concerne la récupération des données à partir d'une liste de choix, pourtant je n'arrive pas à réaliser de mon coté le code.
J'ai réalisé le travail suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Sélection_Paramètres(Cancel As Integer)
 
Dim Monctl1 As Control, MonCtl2 As Control, Element1 As Variant, Element2 As Variant
 
 
Set Monctl1 = Form![Paramètres]![Année]
Set MonCtl2 = Form![Paramètres]![Lieux]
 
For Each Element1 In Monctl1.ItemsSelected
MsgBox Monctl1.Column(0, Element1)
Next
 
For Each Element2 In MonCtl2.ItemsSelected
MsgBox MonCtl2.Column(0, Element2)
Next
 
End Sub

Aucune MsgBox ne s'ouvre lorsque je clique sur un paramètre, je suppose que j'ai un problème dès la récupération des données.
Je suis très loin d'être un géni du VBA et de comprendre tout ce que je trouve sur internet, pouvez vous m'aider svp

Merci

[loufab]

Bonjour,
Avec les listes à choix multiple et un For Each la syntaxe est particulière :

Retour de la valeur de la colonne liée :

Code :

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

1
2
3
For Each Element1 In Monctl1.ItemsSelected
      MsgBox Monctl1.ItemData(Element1)
Next

Avec retour de la 2ème colonne voici la syntaxe :

Code :

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

1
2
3
For Each Element1 In Monctl1.ItemsSelected
      MsgBox Monctl1.Column(1,Element1)
Next

Plus d'information sur la technique des listes et des requêtes :
http://blogaccess.free.fr/?p=38

Cordialement,

[P.Flo]

Merci pour votre réponse je vais essayer avec ce que vous m'avez fourni.
Dans ma liste de choix j'y ai déjà associé une requête (la liste me retourne par exemple un regroupement des différentes années de mes enregistrements).
Cela peut-il poser problème ?

[P.Flo]

Ce que j'ai oublier de mentionner est que ma liste de choix est une liste déroulante. Je ne sais pas si cela fait une différence

[loufab]

Bien que la liste déroulante possède la propriété itemsSelected, elle ne permet pas la multiselection. Il est donc superflu d'avoir recours à elle et à fortiori un For Each

Pour récupérer la valeur sélectionnée (unique) utilisez simplement :

La valeur de la colonne liée :

Code :

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

msgbox me.maliste

Une valeur d'un colonne de la ligne sélectionnée :

Code :

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

msgbox me.maliste.column(1)

retourne la valeur de la 2ème colonne de la ligne sélectionnée.

Pour éviter toute ambigüité lors de échanges sur le forum utilisez les bons termes. Le type d'objet-contrôle est indiqué en haut de la fenêtre des propriétés.
zone de liste déroulante (liste déroulante) et différent de zone de liste (zone liste)

Cordialement,

[P.Flo]

Merci votre réponse m'a beaucoup aidé.

Je rectifierai cet abus de langue lors d'un éventuel prochain message.

Bonne soirée