Désactiver les filtres à la sortie d'excel

[Fermé]
Signaler
Messages postés
120
Date d'inscription
mardi 2 juin 2015
Statut
Membre
Dernière intervention
9 décembre 2020
-
Messages postés
10504
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 octobre 2021
-
Bonjour,
J'ai un tableau excel que je remplis avec un formulaire et tout marche bien. Mais j'ais souvent besoin de filtrer des données et j'aimerais que à la fermeture d'excel les filtres se désactives automatiquement si possible. Merci de m'aider dans mon problème.

3 réponses

Messages postés
24204
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 octobre 2021
6 937
Bonjour,

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In Worksheets
    With sh
        sh.Unprotect
        If .AutoFilterMode And .FilterMode Then .ShowAllData
        sh.Protect
    End With
    Next sh
End Sub 

Supprime et remet la ligne 1 de la 1ère feuille qu'excel ne plante pas.
eric
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Messages postés
10504
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 octobre 2021
1 220
Merci eriiic
Messages postés
10504
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 octobre 2021
1 220
Bonjour,
En ajoutant la procédure qui suit dans ThisWorkbook.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets(1).AutoFilterMode = True Then
Selection.AutoFilter
End If
End Sub

Messages postés
120
Date d'inscription
mardi 2 juin 2015
Statut
Membre
Dernière intervention
9 décembre 2020
2
Bonjour,
Désolé pour la réponse tardive mais plus d’internet. Ta solution fonctionne parfaitement sauf qu’elle supprime carrément les filtres alors que j’aimerais simplement les désactiver à la fermeture d’Excel. Je précise que les feuilles seront protégées. Merci de t’intéresser à mon problème.
Je joins un fichier non protégé.
http://www.cjoint.com/data3/FBniti8HTZa_toutoune-Essai1.xlsm