Bonjour à tous,

Contexte: Créer un formulaire de recherche multi-critères avec plusieurs zones de liste,

J'ai un formulaire qui marche très bien avec des zones de liste déroulantes mais elles ne permettent pas de choisir plusieurs critères... (ou alors je n'ai pas trouvé...).


Après des recherches sur Internet j'ai pu réussir à trouver une méthode qui me convenait. J'ai utilisé le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btn_Affichage_Click()
  Dim varI As Variant
  Dim strFiltre As String
 
  strFiltre = ""
    For Each varI In Me!lst_Program.ItemsSelected
      If strFiltre <> "" Then strFiltre = strFiltre & " OR"
        strFiltre = strFiltre & "[Program]='" & _
          Me!lst_Program.ItemData(varI) & "'"
      Next varI
      DoCmd.OpenForm "T1000_UNION sous-formulaire", acFormDS, , strFiltre
 
End Sub
Ce code trouvé sur un site puis arrangé pour que celà fonctionne chez moi est parfait pour un critère mais je souhaiterai en mettre plusieurs (entre 2 et 6).

Est-ce possible ou faut-il que je change complètement le code?

Merci d'avance pour votre aide,
Little2Fish