Comment désactiver les filtres en quittant Excel


#1

Bonjour

Je travaille très souvent sur une grosse basse de données sur laquelle j’effectue de nombreux filtres.
Mon problème est que j’oublie très souvent d’enlever les filtres en sortant du fichier.

Peut on cocher une fonction pour défaire tous les filtres à la sortie du fichier?
Merci de votre aide précieuse


#2

Bonsoir pauldub,

Supprime tous les filtres du classeur à la fermeture de celui-ci.
Dans le module Thisworkbook (Faire alt + F11) écrire ce code.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.ShowAllData
End Sub

Petite illustration:

Cordialement


#3

Bonjour pauldub,

Je me suis aperçu, que s’il n’y avait aucun filtres sélectionnés et/ou avait été enlevés, cela créé une ( Erreur d’exécution ‘1004’ ).
Pour corrigé cette erreur, il faut ajouter cette ligne d’instruction (procédure et passe directement à la ligne suivante).

On Error Resume Next

Voici le code modifié.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

Cordialement.


#4

Merci beaucoup ça marche parfaitement