Détecter si le filtre automatque est en position show.alldata

[MJ13]

Bonjour,

Avec un filtre automatique, si je mets

activesheet.showalldata

Il m'affiche tout.

Mais si tout est déjà affiché, il bug.

Comment en VBA puis-je continuer la macro si on est déjà en affichage de tout (en évitant le on error)?

Merci à tous.

 

[tototiti2008]

Re : Détecter si le filtre automatque est en position show.alldata

Bonjour MJ13,

si vraiment il ne faut pas utiliser On Error...

il y a peut-être plus simple, mais je ne vois pas :

Dim filtré As Boolean, Fil As Filter
filtré = False
With ActiveSheet.AutoFilter
    For Each Fil In .Filters
        If Fil.On Then
            filtré = True
            Exit For
        End If
    Next Fil
End With
If filtré Then ActiveSheet.ShowAllData

 

[skoobi]

Re : Détecter si le filtre automatque est en position show.alldata

Bonjour MJ13,
Re tototiti 🙂,

pour détecter si le fitre automatique est actif, utilise "FilterMode" comme ceci:

if activesheet.filtermode then activesheet.showalldata

Bon après-midi 🙂

 

[tototiti2008]

Re : Détecter si le filtre automatque est en position show.alldata

Bonjour Skoobi,

et Bon anniversaire 🙂

Merci, ça évite les boucles inutiles...

 

[MJ13]

Re : Détecter si le filtre automatque est en position show.alldata

Bonjour tototiti, Skoobi.

Merci pour vos réponses qui fonctionnent.
Un petit plus pour Skoobi, je pense que tototiti ne m'en voudra pas.

En plus comme c'est l'anniversaire de Skoobi. Alors Happy Birthday To you Skoobi, Happy Birthday (en chanson s'il vous plaît).