Requête Multiselect dans une listbox

Bonjour,

J'aimerais exécuter une requête à partir d'une sélection multiple d'une listbox, en cherchant sur le net j'ai trouvé ce code là :

Code:

---

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

Private Sub Liste55_AfterUpdate() Dim itm As Variant Dim S, S1 As String     For Each itm In Liste55.ItemsSelected S = S & Liste55.ItemsSelected(itm) & "," Next itm   S = Left(itm, Len(S) - 1) S1 = "SELECT YEAR(Match.date) FROM Match WHERE Match.type_match IN(S)"   ComboAnnée.RowSource = S1 End Sub

---

Le but étant de créer une chaine et de l'utiliser pour générer la requête, seulement j'ai le message d'erreur suivant :

Erreur d'exécution 2480 :
Vous avez fait référence à une propriété à l'aide d'un argument numérique qui ne fait pas partie des numéros de propriété de la collection

Quelqu'un peut m'aider à y voir plus clair ?

Merci bien

Bonsoir,
c'est peut-être à cause de la syntaxe :

Code:

---

S1 = "SELECT YEAR(Match.date) FROM Match WHERE Match.type_match IN(" & S & ")"

---

Merci de ta réponse ! J'avais déjà essayé mais l'erreur ne vient pas de là ! Mais c'est vrai la syntaxe était incorrect !

Le débogage me dit que l'erreur vient de là :

Code:

---

S = S & Liste55.ItemsSelected(itm) & ","

---

Je vois vraiment pas....

Bonsoir,
Essaie de remplacer la "," par ";"

J'ai trouvé d'ou vient l'erreur : tu ne récupérais que les index de la multi-sélection, il faut déclarer ta zône de liste en tant que contrôle pour accéder aux données se trouvant dans les colonnes :

Code:

---

1 2 3 4 5 6

Dim objCtl As Control Dim itm As Variant Set objCtl = Me!Liste55 For Each itm In objCtl.ItemsSelected S = S & objCtl.Column(0, itm) & " ; " Next itm

---

0 représente la première colonne de la liste, à changer selon ton besoin

Merci pour ta rep ça marche mais j'ai dû rajouter quelque chose en plus :

Code:

---

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

Private Sub Liste55_AfterUpdate() Dim itm As Variant Dim object As Control Dim S, S1, S2 As String 'S2 =   Set Objctl = Me!Liste55   For Each itm In Objctl.ItemsSelected S = S & """" & Objctl.Column(0, itm) & """," Next itm   S = Left(S, Len(S) - 1) S1 = "SELECT DISTINCT YEAR(Match.date) FROM Match WHERE Match.Type_Match IN (" & S & ")"   ComboAnnée.RowSource = S1 End Sub

---

En effet comme c'est du texte j'ai dû rajouter les guillemets à la ligne

Code:

---

S = S & """" & Objctl.Column(0, itm) & ""","

---

J'ai pas compris exactement pourquoi en revanche... ;)