[Résolu] Recherche multicritères

[kingfadhel]

Bonjour,

Je voudrais lancée une recherche multicritères dans une base.

j'ai 4 critères de recherche (Magasin, Mois, Code, Destination)

je voudrais lorsque l'un des critères change, le tri des données s'affecte par la mise à jour

les critères varies de 1 critères à 4 critères.

 

[titiborregan5]

Re : Recherche multicritères

Bonjour Kingfadhel, le forum,

je pense que le filtre élaboré répondra à tes besoins!

J'essaie de te faire un exemple dès que je peux, sinon tu devrais trouver ton bonheur sur le net.
Et en macro c'est très peu de lignes à écrire pour une rapidité d'exécution!! que du bonheur!!!

Bon courage

 

[david84]

Re : Recherche multicritères

Bonjour,
si j'ai bien compris, à placer en J10 et à tirer vers le bas et la droite (validation matricielle) :

=SIERREUR(INDEX(A$2:A$14;PETITE.VALEUR(SI(($A$2:$A$14=$J$4)*(MOIS($D$2:$D$14)=$K$4)*($C$2:$C$14=$L$4)*($F$2:$F$14=$O$4);LIGNE(INDIRECT("1:"&LIGNES($A$2:$A$14))));LIGNE(1:1)));"")

A+

 

[titiborregan5]

Re : Recherche multicritères

Un essai en PJ, la gestion des listes déroulantes est à perfectionner...

le code macro est :

Sub filtre_élab()

Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("a1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("b1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("c1"), True


Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, Sheets(1).Range("j3:m4"), Sheets(1).Range("j9:p9"), True


End Sub

En espérant que ça t'aille!

Edit: Bonjour David!

 

[kingfadhel]

Re : Recherche multicritères

Re,
Merci pour vous tous,

David: La formule affiche des avaleurs autres que les critères et n'affiche qu'une seule ligne.

titiborregan5 : Génial sauf que le critère mois n'affecte pas la recherche.

Je vais essayé avec le filtre élaboré.

 

[titiborregan5]

Re : Recherche multicritères

C'est le filtre élaboré...
oui le mois n'est pas fait car pas dans ton tableau... pour tout t'avouer j'avais la flemme de rajouter une colonne avec =mois().
ensuite il faut rajouter une ligne de macro pour copier les valeurs sans doublons dans la feuille paramètres et créer une liste déroulante...

ça devrait le faire non?

 

[kingfadhel]

Re : Recherche multicritères

Re,
ça y est,
j'ai ajouté une ligne au code de titiborregan5

Sub filtre_élab()

Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("a1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("b1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("c1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("d1"), True

Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, Range("Criteres"), Range("Extraire"), True

End Sub

 

[Monique]

Re : Recherche multicritères

Bonjour,

Par formule, avec un nombre variable de critères

En J10 puis copier coller :

=SIERREUR(INDEX(A$1:A$14;PETITE.VALEUR(SI((($A$2:$A$14=$J$4)+($J$4=""))*((MOIS($D$2:$D$14)=$K$4)+($K$4=""))*(($C$2:$C$14=$L$4)+($L$4=""))*(($F$2:$F$14=$O$4)+($O$4=""));LIGNE($A$2:$A$14));LIGNES(J$10:J10)));"")

Formule matricielle, à valider par ctrl, maj et entrée

 

[titiborregan5]

Re : Recherche multicritères

Re,
ça y est,
j'ai ajouté une ligne au code de titiborregan5

Sub filtre_élab()

Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("a1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("b1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("c1"), True
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , Sheets(2).Range("d1"), True

Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, Range("Criteres"), Range("Extraire"), True

End Sub

rien de bien compliqué en somme!!! 😉 le filtre élaboré est trop méconnu à mes yeux!!! je vais créer une ligue de défense du filtre élaboré je crois!!! cet outil est magique!!

Content d'avoir pu t'aider!

A+

 

[david84]

Re : Recherche multicritères

Re

David: La formule affiche des avaleurs autres que les critères et n'affiche qu'une seule ligne.

Les lignes affichées me semblent correspondre aux critères, par contre je prenais en compte les 4 critères alors que tu précisais

les critères varies de 1 critères à 4 critères.

La formule proposée par Monique (que je salue) prend en compte l'intégralité de ta demande.
Sinon le filtre avancé est effectivement une bonne solution mais nécessite du VBA pour être automatisée et comme je ne savais pas si tu voulais du VBA ou une solution formule j'ai opté pour la formule.
A+

 

[pierrejean]

Re : Recherche multicritères

Bonjour kingfadhel

Un essai

 

[kingfadhel]

Re : Recherche multicritères

Bonjour kingfadhel

Un essai

désolé de la dire mais la code n'est pas focntionnel.

 

[kingfadhel]

Re : Recherche multicritères

Bonjour,

Par formule, avec un nombre variable de critères

En J10 puis copier coller :

=SIERREUR(INDEX(A$1:A$14;PETITE.VALEUR(SI((($A$2:$A$14=$J$4)+($J$4=""))*((MOIS($D$2:$D$14)=$K$4)+($K$4=""))*(($C$2:$C$14=$L$4)+($L$4=""))*(($F$2:$F$14=$O$4)+($O$4=""));LIGNE($A$2:$A$14));LIGNES(J$10:J10)));"")

Formule matricielle, à valider par ctrl, maj et entrée

Bonjour,
Impressionnant, tout court, Merci.

 

[pierrejean]

Re : Recherche multicritères

Re

Quelqu'un pourrait-il tester le fichier du # 11 pour me dire si le code est ou non fonctionnel ?
Merci

 

[titiborregan5]

Re : Recherche multicritères

Re

Quelqu'un pourrait-il tester le fichier du # 11 pour me dire si le code est ou non fonctionnel ?
Merci

Hello pierrejean,
ça a l'air de marcher chez moi... Par contre il y a un petit souci de date (format américain) que je n'ai pas réussi à résoudre via les formats... je pense que ça vient de la macro...