Zone de liste à choix multiple

Bonjour,

J'ai créé un formulaire sur Access contenant une zone de liste à sélection multiple "sélection étendue". Cette zone de liste contient 3 lignes (A,B,C). Je souhaite que lorsque je fais une sélection (multiple ou non), les valeurs sélectionnées soient récupérées dans ma table.


J'ai essayer d'utiliser ce code mais il ne marche pas !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub btnListe_Click() Dim varI As Variant Dim strFiltre As String   strFiltre = "" If Me.lstClients.ItemsSelected.Count = 0 Then MsgBox "Aucun client n'a été sélectionné" Else For Each varI In Me!lstClients.ItemsSelected If strFiltre <> "" Then strFiltre = strFiltre & " OR " strFiltre = strFiltre & "[ID_client]='" & _ Me!lstClients.ItemData(varI) & "'" Next varI DoCmd.SetFilter "strFiltre"     End If   End Sub

---

Pouvez-vous m'aider ?

Bonjour,

Qu'est ce qui ne marche pas,

La récupération de tes valeurs ou simplement l'application de ton filtre ??

Essaye :

Code:

---

DoCmd.SetFilter strFiltre

---

Car tu passais en paramètre non pas la chaîne contenu dans ta variable "strFiltre", mais la chaîne de caractères "strFiltre" qui n'est pas un critère de filtre :mouarf:

Merci pour votre réponse,

en effet j'arrive pas à récupérer mes valeur avant d'avoir le message "entrer une valeur de paramètre lstClients,

Même avec votre code j'ai encore ce message.

ce message n'a rien a voir avec le code ?
Tu dit l'avoir avant même de cliquer sur ta liste.
C'est bien cela ?
Comment est construit ton formulaire?
Peux tu faire une capture d'écran de ton formulaire en mode création que je puisse comprendre un peu mieux ce qui se passe ? ;)

Voila les capture d'ecran, en effet j'essaye de faire le choix multiple par rapport au Année_besoin (" quand je sélectionne je voudrai filtrer les elements du tableau par rapport à ce paramétre)"

Merci

N'aurais tu pas laissé un critère dans ta requête source de ton formulaire faisant référence à "lstClients" ?
Ou dans la propriété filtre ?

Euh non je crois pas !

peux tu envoyer une exemple de ta base que je puisse jeter un coup d’œil sur la construction du formulaire et voir réellement ou cela coince ?

désolé pour le retard voila un exemple Pièce jointe 173664

Merci ;)

Regarde ce que j'ai trouvé dans la source de ton formulaire :lol:
Pièce jointe 173676

Vide cette zone "Filtre" et tu n'auras plus de message .

Ensuite dans ton code, pour ton critère sur l'année tu ne dois pas mettre de cote simple car ton champ est en numérique !
Ensuite attention a la logique des critères composés !
C'est un "OR" et pas un "AND" car ton année besoin ne peux pas être égale a la fois à 2015 et 2016 !
En revanche tu veux sélectionner les ligne dont l'année est égale soit à 2015 ou à 2016 ;)

Ensuite au lieu de

Code:

---

Docmd.setfilter

---

Préfère le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim varI As Variant Dim strFiltre As String strFiltre = "" If Me.lstClients.ItemsSelected.Count = 0 Then MsgBox "Aucun client n'a été sélectionné" Else For Each varI In Me!lstClients.ItemsSelected If strFiltre <> "" Then strFiltre = strFiltre & " OR " strFiltre = strFiltre & "Annee_besoin=" & _ Me!lstClients.ItemData(varI) ' & "'" Next varI Me.Filter = strFiltre Me.FilterOn = True End If

---

Avec la propriété Filter de l'objet Me ;)

Ensuite pourquoi mettre ce code sur un bouton et pourquoi pas le mettre chaque fois que l'on sélectionne ou désélectionne une année ?
Sur changement de la liste par exemple :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub lstClients_AfterUpdate() Dim varI As Variant Dim strFiltre As String strFiltre = "" If Me.lstClients.ItemsSelected.Count = 0 Then MsgBox "Aucun client n'a été sélectionné" Else For Each varI In Me!lstClients.ItemsSelected If strFiltre <> "" Then strFiltre = strFiltre & " OR " strFiltre = strFiltre & "Annee_besoin=" & _ Me!lstClients.ItemData(varI) ' & "'" Next varI Me.Filter = strFiltre Me.FilterOn = True End If End Sub

---

Et voila :D
A toi de jouer maintenant :mrgreen:

Ah Merci ca marche très bien , Maintenant quand je désélectionne les deux date je veux que les filtre s'enlève , j'arrive pas à le faire !

Comment tu fais pour les désélectionner ?
Si tu le fais avec un bouton, rajoute le code :

Code:

---

1 2 3

Me.filter="" me.filteron=false

---

:mrgreen:

Merci , du coup j'ai mis ce code à la place de MsgBox "Aucun client n'a été sélectionné"
Est ca Marche ^^

Bonjour,

J'ai ajouté une deuxième zone de liste, quand je filtre la premier ca prend pas bien en compte la deuxième et aussi quand j'enlève le filtre ca l'enlève au deux zone de liste, y'a t'il une solution ??

Le mieux c'est de poster un nouveaux sujet :D
Mais pour te guider un peu, l'idée c'est d'avoir une procédure du style "applique filtre" commune aux deux liste, qui va parcourir tes deux listes pour créer ton filtre.
Sur changement de chacune des listes, tu appelle cette procédure qui recrée le filtre à chaque fois.
Attention n'utilise la procédure qui annule ton filtre que si aucune des deux liste n'a d'élément sélectionnés! :D

Merci.
J'ai poster un nouveau sujet déjà est ce que vous pouvez me donné un exemple dans le nouveaux sujet.