Vérifier si un tableau (ou une range) est filtrée

Version imprimable

Bonjour,

Je me prends la tête depuis 1h sur un sujet tout simple et dont la résolution va être très rapide... je l'imagine... :scarymov:

Je veux tout simplement savoir si mon tableau est filtré en VBA...
Je pense qu'il doit me manquer un argument et je suis surement passé à côté sur les nombreux topics que j'ai écumé...

J'ai à peu près tout testé entre les .AutoFilterMode, .FilterMode et .AutoFilter. :aie:

En voici quelques uns :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With Worksheets(FEUIL_ORI) Debug.Print .Range(TAB_REF & "[#Headers]").Address '=> $A$1:$J$1 Debug.Print .Range(TAB_REF).Address '=> $A$2:$J$153 Debug.Print .AutoFilterMode '=> Faux tout le temps Debug.Print .Range(TAB_REF & "[#Headers]").AutoFilter '=> Vrai tout le temps (et m'insère mes filtres sur la plage ou les enlève en fonction de l'état initial) 'Debug.Print .Range(TAB_REF & "[#Headers]").AutoFilterMode '=> Méthode non gérée 'Debug.Print .Range(TAB_REF).AutoFilterMode '=> Méthode non gérée 'Debug.Print .Range(TAB_REF).FilterMode '=> Méthode non gérée End With
Voila ! Si vous avez la propriété magique, je suis preneur ! :mrgreen:

Merci par avance pour votre aide.

Je reste à votre disposition pour tout complément.

Cordialement,
Kimy

PS : Pour précision, aucun problème pour savoir si une feuille est filtrée => je parle bien d'un tableau.
Code:

1 2 3 4 5 With Worksheets(FEUILLE) If .AutoFilterMode Then 'sur la feuille entière .Cells.AutoFilter End If End With

18/10/2016, 14h09
78chris

Bonjour

Si sur un onglet on n'a pas de tableau ou un seul tableau ce n'est pas pareil que si on a plusieurs tableaux...

Voir ce fil où je donnais les subtilités
18/10/2016, 15h56
Kimy_Ire

Bonjour Chris,

Je n'ai qu'un tableau sur ma feuille.
Par ailleurs, sauf erreur de ma part, le lien du fil n'est pas placé dans ton post.

En te remerciant par avance pour ton retour.
Cordialement,
Kimy

RE

Oups ! je remet le code qui teste et défiltre... Noms de la feuille et du tableau à adapter
Code:

1 2 3 4 5 6 Dim Lst As ListObject Set Lst = ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1") If Lst.AutoFilter.FilterMode Then Lst.AutoFilter.ShowAllData End If

18/10/2016, 16h57
Kimy_Ire

Re Chris,

J'avais testé aussi ce bout de code.
J'ai revérifié... même erreur.

Si mon tableau n'est pas filtré je tombe sur un "Variable objet non défini"...

Je pourrais exporter ça dans une fonction indépendante et faire un On Error Resume Next, mais je n'aime pas trop ce genre de gestion d'erreur.
Pour autant, avec mes recherches et ce que tu me proposes, j'ai l'impression que c'est la seule solution...

Merci par avance pour ton retour si tu as d'autres infos. :ccool:

Cordialement,
Kimy

Bonjour,

Autofilter étant un objet représentant l'ensemble des filtres de la plage, on peut utiliser une variable objet pour le stocker

s'il est vide, c'est qu'il n'y a pas de filtre
s'il n'est pas vide, on peut ensuite tester si au moins un filtre est actif
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub ioi() Const Message_Resultat As String = "La plage est : " Dim Retour As String Dim LeFiltrage As AutoFilter Set LeFiltrage = ActiveSheet.ListObjects(1).AutoFilter If Not LeFiltrage Is Nothing Then If LeFiltrage.FilterMode Then Retour = "filtrée avec filtre actif" Else Retour = "filtrée sans filtre actif" Else Retour = "non filtrée" End If MsgBox Message_Resultat & Retour End Sub
Si on souhaite "simplement" savoir si la plage est en mode "filtre automatique", simplification et simplicité pour créer une fonction
Code:

1 2 3 Sub ououou() MsgBox "Mode Filtre Automatique : " & ActiveSheet.ListObjects(1).ShowAutoFilter End Sub

18/10/2016, 17h38
Kimy_Ire

Bonjour joe.levrai,

C'est parfait ! :ccool:

Merci beaucoup !

Cordialement,
Kimy

Et sans passer par une variable objet, pour ma proposition 1 ....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ioi()
Const Message_Resultat As String = "La plage est : "
Dim Retour As String
    With ActiveSheet.ListObjects(1)
        If Not .AutoFilter Is Nothing Then
            If .AutoFilter.FilterMode Then Retour = "filtrée avec filtre actif" Else Retour = "filtrée sans filtre actif"
        Else
            Retour = "non filtrée"
        End If
    End With
MsgBox Message_Resultat & Retour
End Sub

EDIT :

et pour utiliser sous forme de fonction ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ououou()
    MsgBox FiltresActifLs(ActiveSheet.ListObjects(1))
End Sub
 
 
Function ModeFiltrageAutoLs(LS As ListObject) As Boolean
' défini si le ListObject est en mode filtre automatiques
    ModeFiltrageAutoLs = Not LS.AutoFilter Is Nothing
End Function
 
 
Function FiltresActifLs(LS As ListObject) As Boolean
' défini si au moins un filtre est activée sur une plage disposant d'un filtre automatique
    If Not ModeFiltrageAutoLs(LS) Then Exit Function
    FiltresActifLs = LS.AutoFilter.FilterMode
End Function