Améliorer une recherche multicritères

Bonjour,

Je suis actuellement en train de réaliser un système de recherche avec plusieurs critères.
Pour réaliser cette recherche j'ai utilisé des requêtes.
Mon système comprend 9 critères de recherche (chacun ayant sa liste déroulante). Ces crières se trouvent tous dans la même table.

Pièce jointe 176808

Pour le moment, j'ai lié 6 critères ensemble à l'aide d'une requête qui s'inspire d'une table binaire.

Pièce jointe 176807

Le but de la requête est de diminuer le nombre d'éléments dans la liste déroulante à l'aide des autres critères et de ne pas prendre en considération les critères vides.
Malheureusement, cette logique est lourde et ne me permet pas de faire évoler mon système.

Je voudrais donc simplifier cette méthode à l'aide soit de VBA soit d'une autre méthode mais mes connaissances sont limitées en VBA ou SQL.
Est-il possible de m'aide à trouver une nouvelle méthode plus viable ?

Merci à l'avance pour votre aide,

Salut, alors j'ai pas vraiment regardé ton fichier. Mais je peux te dire ce que moi je ferais dans un premier temps, si cela peu t'aider.

Donc pour filtrer les listes déroulantes, il te suffit de changer la source de la liste suivante avec comme critère le choix de l'utilisateur.
Et pour le filtre final, tu peux faire :

ma_requete = ""

Si Choix1 est vide alors
ma_requete = ma_requete
sinon
ma_requete = ma_requete & " [nom du champ] ='" & Choix1 & "'"
Fin si
Si Choix2 est vide alors
.
.
.

et tu fait ça pour tout les critères.

Et pour finir :

Si ma_requete est vide alors
sql = "Select * from ma_table;"
sinon
sql = " Select * from ma_table where " & ma_requete & ";"
fin si

C'est simplement une idée, je ne sais pas si cela vas t'aider.

Kurki.

Bonjour,

Regarde ce tutoriel, tu y trouveras une méthode et la référence à d'autres tutoriels sur le même sujet :

http://claudeleloup.developpez.com/t...-multicritere/

Bonjour Kurki, Claude,

Merci de votre aide pour la résolution du problème.

J'ai essayé ta méthode Kurki, mais n'étant pas très alaise avec VBA je n'y suis pas arrivé. --'

J'ai réussi à résoudre le problème à l'aide du tutoriel de Claude, j'avais déjà essayé la méthode VraiFaux mais pas de cette manière.

Si vous voulais voir le résultat, voici le fichier : Pièce jointe 177009

Pantxoa.