Filtre élaboré multi critere ET - OU

[MaGiK]

Bonjour a toutes et a tous,
débutant en VBA voir même super novice je ne sais pas comment faire un filtre élaboré sur plusieurs critères,
En effet quand je lance la macro, sur la feuille résultat il m'affiche toute ma base sans l'effet du filtre
Je suis obligé de remplir tous les champ de ma zone de filtre pour que cela fonctionne .


Avec la pièce jointe cela sera bcp plus clair

d'avance merci

 

[Cousinhub]

Re : Filtre élaboré multi critere ET - OU

Bonsoir,

essaie ainsi :

Sub Macro1()
Dim DerLig As Long
DerLig = Range("A1:BI11").Find("*", , , , xlByRows, xlPrevious).Row
Range("BDD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:BI" & DerLig), CopyToRange:=Range("CopyToRange"), Unique:=False
End Sub

Et ne remplis que les cellules D2 et D3 avec tes filtres..

 

[jeanpierre]

Re : Filtre élaboré multi critere ET - OU

Bonsoir MaGiK,

Quelle est ta version d'Excel, Merci de le renseigner dans ton profil......

J'ai lancé ton truc et BEUG....

A aucun moment il n'est demandé quoi que ce soit, et je n'ai pas envie de chercher comment "quand je lance la macro, sur la feuille résultat il m'affiche toute ma base sans l'effet du filtre", puisque à aucun moment etc... etc...

A te lire, car il manque beaucoup de chose.

Jean-Pierre

 

[jeanpierre]

Re : Filtre élaboré multi critere ET - OU

Re, et Re bhbh,

Ta solution ne marche pas mieux chez-moi...

Besoin d'une révision ou c'est le fichier de base ????

 

[Cousinhub]

Re : Filtre élaboré multi critere ET - OU

Re,

euh, plutôt ce code :

Sub Macro1()
Dim DerLig As Long
DerLig = Range("A1:BI11").Find("*", , , , xlByRows, xlPrevious).Row
Range("BDD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:BI" & DerLig), CopyToRange:=Sheets("Résultat").Range("A1:BI1"), Unique:=False
End Sub

Jean-pierre, à quel niveau, le Bug?

 

[Cousinhub]

Re : Filtre élaboré multi critere ET - OU

Re-,

le fichier modifié

 

[jeanpierre]

Re : Filtre élaboré multi critere ET - OU

Re,

Sur le premier fichier déposé et avec ta modif de 21h34, c'est ici :

"Range("BDD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"criteres"), CopyToRange:=Range("CopyToRange"), Unique:=False"

Sur le dernier, rien à dire, mais on a aucun choix, ou alors je n'ai rien compris.

 

[Cousinhub]

Re : Filtre élaboré multi critere ET - OU

Re-,

en général, j'évite d'utiliser des noms pour les zones de critères et d'extraction...

Pour les choix, dans la colonne D, en D2 et D3, ce sont les filtres (toutes les personnes qui commencent par "ra" ou par "S"

supprime le S en D3, tu n'auras que les "Ralph", dans le deuxième onglet....

 

[BOISGONTIER]

Re : Filtre élaboré multi critere ET - OU

Bonjour,

Une autre approche que le ET/OU classique.

JB

 

[MaGiK]

Re : Filtre élaboré multi critere ET - OU

Super , merci bcp,
JP dans ton fichier me donne envie d'adapter le mien pour avoir les listes automatiquement.
Par contre JB , pour le filtre élaboré il n'y a que la "fonction ET" ?

Merci
MaGiK

 

[BOISGONTIER]

Re : Filtre élaboré multi critere ET - OU

Bonsoir,

Voir PJ

JB

 

[MaGiK]

Re : Filtre élaboré multi critere ET - OU

Bonjour,
une petite question bête; le filtre élaboré marche avec les chiffres ?

quand je fais une recherche avec le nombre exact ca marche
recherche avec > ou < ca marche

Mais quand je fait une recherche avec 1* ... ca ne marche pas :/

 

[tototiti2008]

Re : Filtre élaboré multi critere ET - OU

Bonjour Magik, Bonjour à tous,

si le champ est numérique, tu ne peux pas utiliser "*" ou "?"
seulement sur les champs texte

 

[MaGiK]

Re : Filtre élaboré multi critere ET - OU

Bonjour Magik, Bonjour à tous,

si le champ est numérique, tu ne peux pas utiliser "*" ou "?"
seulement sur les champs texte

merci bcp pour cette précision.