Filtre avec plusieurs critères
Bonjour tout le monde,
Pouvez-vous m'aider à faire un filtre avec plusieurs critères :
"PDR" "MUG" "PC"
J'ai essayé avec :
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=Array("PDR", "MUG", "PC"), Operator:=xlFilterValues
Mais ça ne fonctionne pas!
Merci d'avance
Cordialement,
Setila
Bonsoir Setila, le forum,
Ton souci c'est que tu parles de MUG , PDR et PC dans tes critères, mais tes cellules contiennent plusieurs mots (dont le critère).
Voici un début de réponse (je bug avec PC et je ne comprends pas pourquoi,
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=Array("=*" & "MUG" & "*", "=*" & "PDR" & "*"), Operator:=xlFilterValuesCordialement,
Bonjour xorsankukai,
Merci pour le code, c'est pareil pour moi je n'arrive pas à faire au delà de 2 noms???
Cordialement,
Setila
Re,
Il semblerait que ce filtre ne dispose que de 2 critères au maximum.....il faudrait s'orienter vers un filtre élaboré...voir personnalisé,
Si un pro passe dans le coin,
Bonne soirée,
Re,
un exemple de filtre élaboré ici:http://boisgontierjacques.free.fr/pages_site/FiltreElabore.htm
Bon courage,
Re,
Compliqué! j'ai essayé de le mettre en place sans sucés!
Help!
Setila
Hello à tous,
J'ai réussi à le faire fonctionner avec le code suivant:
Sub Filtre()
Tbl = Array("PDR", "PC", "MUG")
[R1] = [D7]
[R2].Resize(UBound(Tbl) + 1) = Application.Transpose(Tbl)
Range("D7:D10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[R1].Resize(UBound(Tbl) + 2)
[R1].Resize(UBound(Tbl) + 3).ClearContents
End Sub
Génial, encore appris qqch en vba!
Merci
Setila
Bonjour Setila,
Bravo pour ta persévérance !
Et merci de partager la solution ,
Attention, petit bémol: ne fonctionne que si la colonne1 commence par MUG, PC ou PDR pas si elle les contient,
(Regarde les lignes 11 et 12 commencent par *MUG et sont masquées).
Cordialement,