VBA Excel: Sélection par VBA de + de 2 critères d'un filtre auto [Fermé]

- - Dernière réponse :  Aline - 7 sept. 2014 à 16:37
Bonjour,

J'ai récemment posté une question afin de pouvoir personnaliser un filtre automatique par VBA; voici le lien : http://www.commentcamarche.net/forum/affich-30692435-vba-excel-selection-de-valeurs-d-un-filtre-automatique.

J'aimerais à présent savoir comment faire pour pouvoir sélectionner plus de 2 critères (en l'occurrence 9) du filtre automatique par VBA sous Excel 2010 car le code proposé ne le permet pas:

Sub Macro1()
ActiveSheet.Range("$A$1:$X$2940").AutoFilter Field:=6, Criteria1:=Array("01_Oui", "01_A voir", "02_Oui", "02_A voir"), Operator:=xlFilterValues
End Sub

Je vous en remercie par avance!



Afficher la suite 

1 réponse

Messages postés
14891
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 décembre 2019
1195
0
Merci
Bonjour,

fait a l'enregistreur de macro et ca marche:

Sub Macro2()
'
' Macro2 Macro
'

'
ActiveSheet.Range("$A$1:$D$30").AutoFilter Field:=1, Criteria1:=Array("1", _
"11", "13", "15", "17", "19", "3", "5", "7", "9"), Operator:=xlFilterValues
End Sub


la meme chose avec un tableau:

Sub Filtre_multi()
Dim Criteres As Variant
'Les critères de recherche
Criteres = Array("1", "3", "5", "7", "9", "11", "13", "15", "17", "19")

ActiveSheet.Range("$A$1:$D30").AutoFilter Field:=1, Criteria1:=Criteres, Operator:=xlFilterValues
End Sub
Merci pour ta réponse.