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

Fermé

Aline - 25 août 2014 à 10:09
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 : 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!

A voir également:

Vba excel filtre automatique plusieurs critères
Liste déroulante excel - Guide
Photo filtre gratuit - Télécharger - Retouche d'image
Formule excel - Guide
Message automatique thunderbird - Guide
Formule excel pour additionner plusieurs cellules - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 août 2014 à 12:12

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

Aline
7 sept. 2014 à 16:37

Merci pour ta réponse.

Discussions similaires

VBA filtrer selon plusieurs critères

excel - Comment filter une colonne avec plusieurs termes ?

Peut-on appliquer plus de deux critères au filtre d'excel ?

Filtre automatique personnalisé

NB.SI critère couleur

SOMME SI COULEUR

Discussions similaires

Newsletters