Sélection multiple dans une zone de liste

Bonjour,

J'ai une zone de liste L_ouvrages qui permet de sélectionner un ouvrage afin d'ouvrir le formulaire correspondant.

Mon code est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub L_ouvrages_DblClick(Cancel As Integer) Dim stDocName As String Dim stLinkCriteria As String   stDocName = "F_modification_ouvrages" stLinkCriteria = "[IdOuvrage]=" & Me![L_ouvrages] DoCmd.OpenForm stDocName, , , stLinkCriteria   End Sub

---

Ce que je voudrais c'est pouvoir sélectionner plusieurs ouvrages dans la zone de liste et donc ouvrir le formulaire pour les ouvrages sélectionnés.

J'ai créé un bouton de commande pour l'ouverture du formulaire avec le code suivant, mais ça ne fonctionne pas :

Code:

---

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

Private Sub B_ouvrir_ouvrages_Click() Dim NbLignes As Long Dim NoOuvrage As Long Dim i As Long Dim j As String   Dim stDocName As String Dim stLinkCriteria As String   j = ""   NbLignes = Me.L_ouvrages.ListCount   For i = 1 To NbLignes If Me.L_ouvrages.Selected(i) = True Then NoOuvrage = j & Me.L_ouvrages.Value Next i   stDocName = "F_modification_ouvrages" stLinkCriteria = "[IdOuvrage]=" & j DoCmd.OpenForm stDocName, , , stLinkCriteria   End Sub

---

Je ne vois pas du tout comment faire!

Merci d'avance

Bonjour,

Dans une zone de liste (non déroulante) on peut utiliser la sélection multiple (1 propriété à régler dans le controle). Pour traiter les sélections utilise la propriété ItemsSelected du controle dans une boucle. En composant avec un In() tu devrais t'en sortir facilement.

3 choses sont donc à regarder :

La propriété Selection multiple du controle (voir l'aide pour son fonctionnement)
Le ItemsSelected dans VBA
la clause SQL In().

Cordialement,

Bonjour,

Une idée peut-être (je n'ai pas essayé ): Créer par concaténation l'expression In(10;15;25)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For i = 1 To NbLignes If Me.L_ouvrages.Selected(i) = True Then NoOuvrage = j & Me.L_ouvrages.Value & ";" Next i ' Suppression du dernier ; j = Left(j,Len(j)-1) ' Création de la syntaxe finale j= "In(" & j & ")" stDocName = "F_modification_ouvrages" stLinkCriteria = "[IdOuvrage]=" & j DoCmd.OpenForm stDocName, , , stLinkCriteria

---

J'ai fait ça :

Code:

---

1 2 3 4 5 6 7

Dim ctl As Control Dim varItm As Variant Set ctl = Me.L_ouvrages For Each varItm In ctl.ItemsSelected Debug.Print ctl.ItemData(varItm) Next varItm

---

Tout fonctionne bien, ce sont bien les numéros d'ouvrages qui s'affichent dans la fenêtre exécution.
Maintenant ce que je voudrais c'est ouvrir le formulaire "F_modification_ouvrages" qui regroupe les infos sur les ouvrages en filtrant par le/les numéros d'ouvrages.

Merci

J'ai essayé ça :

Code:

---

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

Private Sub B_ouvrir_ouvrages_Click() Dim NbLignes As Long Dim NoOuvrage As Long Dim i As Long Dim j As String   Dim stDocName As String Dim stLinkCriteria As String   Dim ctl As Control Dim varItm As Variant   j = ""   Set ctl = Me.L_ouvrages For Each varItm In ctl.ItemsSelected j = j & ctl.ItemData(varItm) & ";" Next varItm   stDocName = "F_modification_ouvrages" stLinkCriteria = "[IdOuvrage]=" & j DoCmd.OpenForm stDocName, , , stLinkCriteria   End Sub

---

mais j'ai un problème de syntaxe au niveau du filtre. Je ne vois pas trop comment faire..
peut être est-ce que je devrais passer par une requête sql au lieu d'un filtre pour ouvrir le formulaire...?

Regarde

Code:

---

In()

---

dans l'aide pour comprendre ce que le code donné par Jeannot45 fait.

Tu as tout en main, il suffit d'appliquer. ;)

c'est bon, j'ai réussi :

Code:

---

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 B_ouvrir_ouvrages_Click() Dim NbLignes As Long Dim NoOuvrage As Long Dim i As Long Dim j As String   Dim stDocName As String Dim stLinkCriteria As String   Dim ctl As Control Dim varItm As Variant   j = ""   Set ctl = Me.L_ouvrages For Each varItm In ctl.ItemsSelected j = j & ctl.ItemData(varItm) & "," Next varItm     ' Suppression du dernier ; j = Left(j, Len(j) - 1) ' Création de la syntaxe finale j = "In (" & j & ")" stDocName = "F_modification_ouvrages" stLinkCriteria = "[IdOuvrage] " & j DoCmd.OpenForm stDocName, , , stLinkCriteria   End Sub

---

merci à tous de votre aide!