Désactiver les filtres à la sortie d'excel
Fermé
Bourrique66
Messages postés
158
Date d'inscription
mardi 2 juin 2015
Statut
Membre
Dernière intervention
25 septembre 2023
-
8 févr. 2016 à 17:57
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 - 13 févr. 2016 à 10:03
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 - 13 févr. 2016 à 10:03
A voir également:
- Vba enlever les filtres
- Enlever bing - Guide
- Comment enlever une page sur word - Guide
- Enlever logo tiktok - Guide
- Comment enlever les cookies - Guide
- Find vba - Astuces et Solutions
3 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 209
13 févr. 2016 à 09:43
13 févr. 2016 à 09:43
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
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
8 févr. 2016 à 22:42
8 févr. 2016 à 22:42
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
Bourrique66
Messages postés
158
Date d'inscription
mardi 2 juin 2015
Statut
Membre
Dernière intervention
25 septembre 2023
2
13 févr. 2016 à 09:26
13 févr. 2016 à 09:26
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
13 févr. 2016 à 10:03