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

Question

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:

Sub Macro1()ActiveSheet.Range("$A$1:$X$2940").AutoFilter Field:=6, Criteria1:=Array("01_Oui", "01_A voir", "02_Oui", "02_A voir"), Operator:=xlFilterValuesEnd Sub

Je vous en remercie par avance!



Configuration: Windows XP / Firefox 24.0

f894009 · Answer

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:=xlFilterValuesEnd 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:=xlFilterValuesEnd Sub

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

1 réponse

Discussions similaires