Bouton pour désactiver d'un coup tous les filtres

Bonjour,

J'aimerais savoir s'il est possible de créer un bouton qui me permettra de désactiver tous les filtres d'un coup sans avoir à retirer les filtres de la feuille.

D'avance merci pour votre précieuse aide.

Fi2

Bonjour,

Oui, il est possible, et même en natif dans Excel

Bonne journée

Bonjour,

"ruban", "données" cliquez sur l'entonnoir... Cela ne suffit pas ?

Sinon :

Sub DéFiltre()
    On Error Resume Next
    Selection.AutoFilter
End Sub

Le On Error Resume Next sert à éviter une erreur s'il n'y a pas de filtre sur la feuille.

@ bientôt

LouReeD

Bonjour,

Merci pour l'option " effacer ", ça va déjà pas mal aider, mais pour faciliter les choses, je souhaitais mettre directement dans la feuille un bouton avec inscrit dessus "effacer filtres " afin que ça soit plus facile pour mes collègues.

Bonjour à tous,

autre essai...

If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
'ou
with sheets("TaFeuille") 'nom de l'onglet à adapter
 If .FilterMode = True Then .ShowAllData
end with

Cordialement,

Merci beaucoup :-)

Bonsoir,

mon code ne fonctionne pas ?

Il est vrai que ce n'est pas beau le "On Error Resume Next" mais sur une petite procédure comme la mienne c'est aussi rapide et simple que le "If", non ?

@ bientôt

LouReeD

Non, c'est juste moi qui ne maîtrise pas les codes :-(

Tu peux aussi le mettre en raccourci dans ta barre d'accès rapide, pas de VBA et accessible partout (peu importe sur quel onglet tu es) en 1 clic !