VBA Excel: Sélection par VBA de + de 2 critères d'un filtre auto
Aline
-
Aline -
Aline -
Bonjour,
J'ai récemment posté une question afin de pouvoir personnaliser un filtre automatique par VBA; voici le lien : https://forums.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:
Je vous en remercie par avance!
J'ai récemment posté une question afin de pouvoir personnaliser un filtre automatique par VBA; voici le lien : https://forums.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!
1 réponse
-
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
