XL 2016 VBA - Filtrer une colonne sur différentes valeurs

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2022

• #2

Bonjour Dudu,
J'ai testé ça et ça a l'air de marcher, avec ce simple test :

VB:

Chaine = Array("Jaune", "Rose")
ActiveSheet.Range("$A$1:$B$9").AutoFilter Field:=1, Criteria1:="=" & Chaine(0), _
    Operator:=xlOr, Criteria2:="=" & Chaine(1)

Si un paramètre n'est pas désiré il faut mettre "" mais il doit être présent dans l'array.
Pour tout défiltrer :

Code:

ActiveSheet.Range("$A$1:$B$9").AutoFilter Field:=1

En espérant avoir tout compris.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #3

Merci @sylvanu
Je vais essayer. J'ai 10 couleurs possibles. Je vais tenter le coup avec 10 critères dont les non voulus seront à "".

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #4

J'ai une autre question sur une sujet qui me pose problème.
Comment tester si un colonne d'un tableau structuré a un filtre actif ?
Avec une feuille c'est:
ActiveSheet.AutoFilter.Filters(7).On
Avec un tableau structuré:
ActiveSheet.ListObjects("TableauMacro2").Range.AutoFilter.Filters(7).On part en erreur Variable objet ou variable de bloc With non définie

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 15 Janvier 2022

• #5

Salut à tous,
Le plus court :

If [TableauMacro2[Colonne7]].ListObject.AutoFilter.FilterMode Then ...​

( Colonne7 = le nom de la colonne 7)​

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #6

Quelle M... cette syntaxe VBA sur les filtres. Je ne m'en sors pas !!!!
En plus ça détruit le checkbox du filtre dans l'onglet Création des TS qui devient grisé.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #7

Merci @fanch55, ta syntaxe fonctionne.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #8

Et si le nom du tableau est dans une variable ?

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 15 Janvier 2022

• #9

Dudu2 à dit:

Et si le nom du tableau est dans une variable ?

Cliquez pour agrandir...

A main levée sans vérif :

Mytab = "TableauMacro2"​

Mycol = "Colonne7"​

If range(Mytab & "[" & Mycol & "]") .ListObject.AutoFilter.FilterMode Then ...​

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #10

Bien joué @fanch55, tu me sors d'une galère de 2 heures.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #11

Et si je veux dé-filtrer cette colonne ? Tu as une syntaxe à main levée ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Janvier 2022

• #12

Merci à vous 2.
Je m'en suis enfin sorti avec vos indications.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 15 Janvier 2022

• #13

Pas bon ma main levée , cela indique en fait que le tableau est filtré, pas quelle colonne .
Pour dé filtrer une colonne précise, je ferai plutôt ainsi :

Code:

    Mytab = "Tableau1"
    Mycol = "Colonne2"
    With Range(Mytab).ListObject
        If Not .AutoFilter Is Nothing Then
           .Range.AutoFilter .ListColumns(Mycol).Index ' <- pour 1 colonne
          ' .AutoFilter.ShowAllData                    ' <- pour toute la table
        End If
    End With

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 15 Janvier 2022

• #14

Sinon, pour le filtrage de couleur, criteria1 suffit :

VB:

Sub Filtre()
    Mytab = "Tableau1"
    Mycol = "Colonne1"
    Col = Array("orange", "rose", "vert")
    With Range(Mytab).ListObject
        .AutoFilter.ShowAllData
        .Range.AutoFilter _
            Field:=.ListColumns(Mycol).Index, _
            Criteria1:=Array("orange", "rose", "vert")
        ' ou
        .Range.AutoFilter _
            Field:=.ListColumns(Mycol).Index, _
            Criteria1:=Col
    End With
End Sub

 

Vote positif 0 Vote négatif