Désactiver les filtres à la sortie d'excel
Bourrique66
Messages postés
166
Statut
Membre
-
Le Pingou Messages postés 12375 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12375 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- Impossible supprimer filtre excel
- Supprimer liste déroulante excel - Guide
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Impossible de supprimer une page word - Guide
- Supprimer rond bleu whatsapp - Guide
- Fichier impossible à supprimer - Guide
3 réponses
Bonjour,
Supprime et remet la ligne 1 de la 1ère feuille qu'excel ne plante pas.
eric
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
Le Pingou
Messages postés
12375
Date d'inscription
Statut
Contributeur
Dernière intervention
1 476
Merci eriiic
Bonjour,
En ajoutant la procédure qui suit dans ThisWorkbook.
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
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
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
