Discussion :

[Antisthene]

Bonsoir,

Après avoir écumé, le forum et y avoir trouvé quelques pistes notamment une que je développerai, je me permets de vous solliciter afin de trouver une solution à mon problème.

J'aimerais comme l'indique le titre de cette discussion, récupérer les éléments sélectionnés dans ma liste déroulante à choix multiple pour m'en servir comme critères dans une requête sélection. Pour une liste déroulante à choix unique cela est très simple, puisque le critère de ma requête sélection est le suivant [Forms]![Extraction]![L1].

Je suis tombé sur un tuto qui selon toute vraisemblance pourrait m'aider; La solution apportée, si j'ai bien compris, est de créer une variable qui intègrerai l'ensemble des éléments sélectionnés.

http://loufab.developpez.com/tutorie.../operateur-in/

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande2_Click()
Dim itm As Variant          ' l'item choisi
Dim lstval As String        ' la liste des id sélectionnés
For Each itm In Me.Zliste.ItemsSelected                 ' parcourt les items
    lstval = lstval & Me.Zliste.ItemData(itm) & ","     ' insère chaque id dans la variable
Next
lstval = Left(lstval, Len(lstval) - 1)                  ' supprime la dernière virgule
DoCmd.OpenReport "Test", acViewPreview, , "IdCategorie IN (" & lstval & ")"  ' imprime la sélection
End Sub

Cependant je n'arrive pas à utiliser ce "lstval" dans le critère de ma requête sélection. Quel syntaxe dois-je utiliser, j'ai déjà essayé IN ( lstval ) mais ça n'a pas l'air de fonctionner.
Pouvez-vous m'aider ou m'orienter vers autre chose?

Merci d'avance pour votre aide,

Bonne soirée

[Tofalu]

Vous devriez montrer le code que vous utilisez en précisant le type des données ainsi que les valeurs retournées par lstVal

[Christophe]

moi, pour cela voilà comment je procèderait.

Je n'utilise pas les sélections multiples ( par contre pas mal les listes déroulantes )

Je ferais une requête SQL en VBA mise à jour en parcourant la liste déroulante avec une boucle, la requete complétée à chaque élément sélectionné trouvé, on ajoute dans la requête la valeur de l'élément.

Si besoin je peux développer.

[loufab]

Bonjour,
Transmettre un paramètre à une requête se fait assez simplement via plusieurs méthodes. Cela reste à la discrétion du développeur avec cependant 2 règles fondamentales à retenir :

1. L'ihm doit rester pratique pour l'utilisateur, le développeur d'adapte.
2. Le code doit être le plus simple possible, pensez aux autres qui devront le lire.

Concernant une liste In() le problème de passation de paramètres est un peu plus ardu. Voici comment je procède habituellement, bien évidemment c'est encore à la discrétion du développeur, à chacun sa méthode et ses habitudes.

D'abord concernant la captation des choix de la liste et de leur valeur. La méthode indiquée dans mon tutoriel reste valable à un détail ; il ne traite que des valeurs numériques, pour du texte voici ce qu'il faut modifier. Note également que je factorise sous forme d'une fonction pour pouvoir récupérer la liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function fGetListe(zliste As ListBox) As String
Dim itm As Variant          ' l'item choisi
Dim lstval As String        ' la liste des id sélectionnés
 
For Each itm In zliste.ItemsSelected                 ' parcourt les items
    'ICI LA LIGNE MODIFIEE
    lstval = lstval & """" & zliste.ItemData(itm) & ""","     ' insère chaque valeur TEXTE
Next
fGetListe = Left(lstval, Len(lstval) - 1)
End Function

Donc l'appel est simple :

Code :

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

fGetListe(me.malistederoulante)

Pour l'inclusion dans une requête voici comment procéder (extrait tiré d'une de mes applications) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim strChoix As String
    Dim strSql As String
    strSql = "SELECT [Nom] & "" "" & [Prenom] AS Adhérent, tAdherent.FonctionAmap, tAdherent.Email, "
    strSql = strSql & " tAdherent.Selection, tAdherent.ID_adherent, tAdherent.Nom FROM tAdherent "
 
    strChoix = fGetListe(Me.lstFonctionAmap)
 
    If Len(strChoix) > 0 Then
        strSql = strSql & " WHERE FonctionAmap in(" & strChoix & ")"
    End If
    strSql = strSql & " ORDER BY tAdherent.Nom;"

• strSql contient la requête
• strChoix la liste des valeurs

Une fois strSql renseigné on peut imaginer l'utiliser tel quel ou bien l'enregistrer dans un objet requête comme ceci.

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim Qrd As DAO.QueryDef
    'Créer une requête
    Set Qrd = CurrentDb.CreateQueryDef("MaNouvelleRequete", strSql)
    'Modifier un objet requête existant
    Set Qrd = CurrentDb.QueryDefs("UneRequeteExistante")
    Qrd.SQL = strSql
    'dans ce dernier cas le code SQL existant est simplement remplacé par le nouveau
    currentdb.QueryDefs.Refresh 'on force le rafraichissement.

Il n'y a aucune instruction de sauvegarde.

La liste à choix multiple est souvent boudée parce que moins pratique à poser dans une IHM et plus complexe à exploiter aussi bien pour l'utilisateur (ctrl et shift) que pour le développeur néophyte cependant elle est incontournable pour du choix multiple.

Cordialement,

[Tofalu]

La liste à choix multiple est souvent boudée parce que moins pratique à poser dans une IHM et plus complexe à exploiter aussi bien pour l'utilisateur (ctrl et shift) que pour le développeur néophyte cependant elle est incontournable pour du choix multiple.

Il y a aussi le sous formulaire avec case à cocher. Plus difficile à développer mais beaucoup plus pratique pour l'utilisateur

[loufab]

En effet , j'ai une classe qui permet de faciliter l'utilisation des choix par case à cocher. Faudrait que je pense à la publier... mais surtout la retrouver.

[Antisthene]

Bonjour à vous deux,

Je vais essayer de préciser un peu plus.

J'ai une liste déroulante qui est basée sur une table "DATES" contenant un champ "M_A" avec du texte. Il s'agit de mois et d'année ( JANVIER 2013 ; FÉVRIER 2013 ; .... ).

L’utilisateur choisit donc le mois qui l’intéresse et j'ai un bouton macro qui va exécuter pleins de requêtes (création de table , ajout) .Toutes ces requêtes se base sur une première requête une requête sélection qui est filtrée selon le choix qu'a fait l'utilisateur dans la liste déroulante. Le critère de cette première requête sélection est donc LIKE Forms!Extraction.L1. Extraction est le nom de mon formulaire ou se situe la zone de liste déroulante L1.

Cela fonctionne très bien. Mais je me dis que l'utilisateur peux être amené à sélectionner plusieurs items dans ma zone déroulante. Donc je me suis dis, je vais passer ma zone de liste déroulante en choix multiple. Mais là, ma requête sélection ou il y a le filtre ne renvoie aucun résultat.

J'ai donc cherché et je suis tombé sur le tuto que j'ai mis en application avec le résultat escompté.

Il permet de renvoyer dans un état les valeurs que l'utilisateur a choisit dans ma zone de liste déroulante à choix multiple.
Le code que j'ai utilisé est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande2_Click()
Dim itm As Variant          ' l'item choisi
Dim lstval As String        ' la liste des id sélectionnés
For Each itm In Forms!Extraction.L1.ItemsSelected                 ' parcourt les items
    lstval = lstval & """" & Forms!Extraction.L1.ItemData(itm) & ""","     ' insère chaque id dans la variable
Next
lstval = Left(lstval, Len(lstval) - 1)                  ' supprime la dernière virgule
DoCmd.OpenReport "etat1", acViewPreview, , "M_A IN (" & lstval & ")"  ' imprime la sélection
End Sub

Je récupère bien avec ce code une "espèce" de variable lstval qui contient les éléments sélectionnés de la liste déroulante.

Alors j'ai donc tenté d'utiliser lstval dans le critère de ma requête sélection en prenant le soin d’exécuter la procédure avant; Du coup, j'ai testé plusieurs choses et notamment ça : select M_A from DATES IN ( lstval ) avec toutes les déclinaisons possible mais ça n'a pas l'air si simple.

Je pense qu'il y a forcément un moyen, les gens qui ont fait des zones de liste déroulante à choix multiple ont du bien imaginer que des gens bien attentionnés voudraient récupérer ces items un jour ou l'autre, non ?

Christoph ta solution semble être une bonne alternative, je vais cependant encore continuer mes recherches. Je reviendrais vers toi pour en savoir plus si je ne m'en sors pas. Mais je suis certains de n'être pas très loin.

Merci d'avance à ceux qui pourront m'aider.

Bonne journée

[Antisthene]

Je viens de voir vos messages,j'étais en train de rédiger le mien je vais regarder ça d'un peu plus près.

[Antisthene]

Loufab,

Pourquoi ne puis-je pas utiliser ma variable strChoix qui est égal à fGetListe(Forms!Extraction.L1) directement dans ma requête sélection en écrivant dans le critère quelque chose comme = & strChoix & ?

Ton code me fait un peu peur car j'ai une grosse interrogation, je vais essayer d'expliquer ça.

Ma requête sélection s'appelle A001 c'est sur un de ses champs que je filtre en fonction de ma zone de liste.

J'ai 2 requêtes A002 (création de table) et A003 (requête ajoût) qui sont créées à partir de A001 que j’exécute en vba après un clic sur un bouton. Les deux requêtes (A002 et A003) sont donc filtrées à leur lancement.

Le code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Extract_Click()
DoCmd.setWarnings False
 
DoCmd.OpenQuery ("A002")
DoCmd.OpenQuery ("A003")
 
Me.refresh
Me.L1.Requery
 
End Sub

J'ai créé la fonction fGetListe dans un module comme tu l'expliques dans ton message précédent.
Maintenant si je suis ton raisonnement il faut que j'intègre à mon code quelque chose comme ça :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Extract_Click()
        Dim strChoix As String
        Dim strSql As String
        DoCmd.setWarnings False
 
 
    strSql = "SELECT...... j'écris toute ma requête A001 en SQL sauf la clause Where"
 
 
    strChoix = fGetListe(Forms!Extraction.L1)
 
    If Len(strChoix) > 0 Then
        strSql = strSql & " WHERE Mois_Annee in(" & strChoix & ")"
    End If
 
' la ma première interrogation arrive je dois exécuter A002 et A003 mais comment ces 2 requêtes vont elles savoir qu'elle ne découle plus de A001 mais de strSql? Si je lance ça comme ça A002 et A003 dépendent toujours de ma requête A001. Dois-je tous réécrire? Je pense que tu me conseilles de faire une dernière chose c'est en fait de créer A001 à partir de strSql avant de lancer mes 2 requêtes A002 et A003. Comme ça mes requêtes A002 et A003 vont savoir de quoi elles dépendent. En écrivant '
 
    Dim Qrd As DAO.QueryDef
 
    Set Qrd = CurrentDb.CreateQueryDef("A001", strSql)
    currentdb.QueryDefs.Refresh 'on force le rafraichissement.
 
 
DoCmd.OpenQuery ("A002")
DoCmd.OpenQuery ("A003")
 
Me.refresh
Me.L1.Requery
 
End Sub

Peux-tu m'aiguiller?

Merci d'avance.

[loufab]

Bonjour,

En effet très tardivement.

Pour parcourir toute la liste utilise ceci :

Code :

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

1
2
3
For i = 0 to Me.maliste.ListCount-1
     debug.print me.maliste.itemdata(i)
next

ou

Code :

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

debug.print me.maliste.column(0,i)

ou 0 est le n° de la colonne.

Cordialement,

[soniVT]

bonjour,
moi aussi je me joins très tardivement à cette discussion ... j'ai le même problème de vouloir associer une liste choix multiples à une requête.
(je précise que je n'ai aucun soucis avec une liste déroulante à choix simple, j'exécute la requête sans passer par vba)
Donc:
Ma liste de choix est composée d'années en format texte.
Voici mon code (ci-après) ... A l'exécution, le code bloque sur Set Qrd ... le message d'erreur me dit :
"erreur d'exécution 3075: erreur de syntaxe, opérateur absent dans l'expression <<WHERE AnneDebutFormation in("2015","2016")>>
(donc les éléments de ma liste multiple sont bien trouvés, mais je bloque sur l'association à ma requête)
... ah, j'allais oublier. Pour l'instant, dans mon sql, j'ai laissé de coté la clause HAVING ... je me suis dis que je m'en occuperais une fois que le gros de ma requête fonctionne.
Je serai super heureuse si quelqu'un peut m'aider.

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
18
19
20
21
22
23
24
Private Sub Commande36_Click()
 
    Dim strChoix As String
    Dim strSql As String
 
    strSql = "SELECT Year([tbl_General]![PeriodeDebutFormation]) AS AnneeDebutFormation, tbl_General.num_Axe,tbl_General.Service, Sum(tbl_General.DureeStageJours) AS SommeDeDureeStageJours,"
    strSql = strSql & " tbl_General.Dispositif_code, tbl_General.Plan_Pluriannuel_autre, tbl_General.Plan_Pluriannuel, tbl_General.Suivi From tbl_General"
    strSql = strSql & " GROUP BY Year(tbl_General.PeriodeDebutFormation), tbl_General.num_Axe, tbl_General.Service, tbl_General.Dispositif_code, tbl_General.Plan_Pluriannuel_autre, tbl_General.Plan_Pluriannuel, tbl_General.Suivi,"
 
    'strSql = strSql & " HAVING(((tbl_General.num_Axe) = 3) And ((tbl_General.Dispositif_code) = 'PLAN' Or (tbl_General.Dispositif_code) = 'PLAN-RECY' Or (tbl_General.Dispositif_code) = 'CPF') And ((tbl_General.Plan_Pluriannuel_autre) = False) And ((tbl_General.Plan_Pluriannuel) = False) And ((tbl_General.Suivi) <> 'Reporté' And (tbl_General.Suivi) <> 'Annulé'))"
 
    strChoix = fGetListe(Me.Lst_anneeMulti)
 
    If Len(strChoix) > 0 Then
        strSql = strSql & " WHERE AnneeDebutFormation in(" & strChoix & ")"
 
    End If
    strSql = strSql & ""
 
    Dim Qrd As DAO.QueryDef
    'Créer une requête
    Set Qrd = CurrentDb.CreateQueryDef("MaNouvelleRequete", strSql)
 
End Sub

[tee_grandbois]

Code :

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

   strSql = strSql & " GROUP BY Year(tbl_General.PeriodeDebutFormation), tbl_General.num_Axe, tbl_General.Service, tbl_General.Dispositif_code, tbl_General.Plan_Pluriannuel_autre, tbl_General.Plan_Pluriannuel, tbl_General.Suivi,"

Bonjour,
enlève la virgule à la fin de cette ligne.

[soniVT]

bonjour tee_grandbois,
... déjà fait, j'ai enlevé la virgule, le message d'erreur reste le même.

[tee_grandbois]

Bonsoir,
peux-tu ajouter Debug.Print strSql avant la ligne

Code :

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

1
2
 
    Dim Qrd As DAO.QueryDef

et poster le résultat qui apparait dans la fenêtre d'exécution de VBA ?
Merci