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
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
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.
Merci beaucoup ça marche parfaitement