VBA Excel 2010 : Supprimer tout les filtres à la fermeture
Résolu/Fermé
Villette54
ExpertExcel - 4 avril 2013 à 12:15
- Messages postés
- 300
- Date d'inscription
- vendredi 15 mars 2013
- Statut
- Membre
- Dernière intervention
- 31 juillet 2018
ExpertExcel - 4 avril 2013 à 12:15
A voir également:
- Vba supprimer filtre
- VBA Excel 2010 : Supprimer tout les filtres à la fermeture ✓ - Forum - Excel
- EXCEL 2010 : supprimer "Trier de A à Z" dans une colonne ✓ - Forum - Excel
- Boucle macro vba Excel 2010 ✓ - Forum - Excel
- Vba excel 2010 : convertir jour en date ✓ - Forum - VB / VBA
- VBA Excel 2010 (formulaire personnalisé) ✓ - Forum - Excel
4 réponses
f894009
26 mars 2013 à 16:34
- Messages postés
- 16626
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 4 août 2022
26 mars 2013 à 16:34
Bonjour,
une facon de faire a l'ouverture du fichier
code dans thisworkbook sauvegarder fichier en xlsm
ou a la fermeture
Bonne suite
une facon de faire a l'ouverture du fichier
code dans thisworkbook sauvegarder fichier en xlsm
Private Sub Workbook_Open() For i = 1 To Sheets.Count Sheets(i).Select Cells.Select Selection.AutoFilter Next End Sub
ou a la fermeture
Private Sub Workbook_BeforeClose(Cancel As Boolean) For i = 1 To Sheets.Count Sheets(i).Select Cells.Select Selection.AutoFilter Next End Sub
Bonne suite
Villette54
27 mars 2013 à 08:34
- Messages postés
- 300
- Date d'inscription
- vendredi 15 mars 2013
- Statut
- Membre
- Dernière intervention
- 31 juillet 2018
27 mars 2013 à 08:34
Ok, merci beaucoup :)
Villette54
29 mars 2013 à 09:30
- Messages postés
- 300
- Date d'inscription
- vendredi 15 mars 2013
- Statut
- Membre
- Dernière intervention
- 31 juillet 2018
29 mars 2013 à 09:30
Bonjour à tous,
Je reviens vers vous car je viens de me rendre compte (mieux vaut tard que jamais) que je m'étais mal exprimé.
Je ne souhaite pas la suppression de l'outils filtre, juste la remise par défaut de ceux-ci sur mes 2 premières pages (les autres étant des graphiques).
J'espère m'être bien exprimé cette fois,
Merci d'avance et bonne journée
Je reviens vers vous car je viens de me rendre compte (mieux vaut tard que jamais) que je m'étais mal exprimé.
Je ne souhaite pas la suppression de l'outils filtre, juste la remise par défaut de ceux-ci sur mes 2 premières pages (les autres étant des graphiques).
J'espère m'être bien exprimé cette fois,
Merci d'avance et bonne journée
Voici une solution simple
Dim i as integer
Const NBR_FEUILLES = 2
on error resume next
' obligatoirement les 2 première feuilles de ton classeur
For i = 1 to NBR_FEUILLES
worksheets(i).cells.AutoFilter ' efface les filtre
worksheets(i).cells.AutoFilter ' le remet par défaut
next
Fred
http://expertise-excel.com/
Dim i as integer
Const NBR_FEUILLES = 2
on error resume next
' obligatoirement les 2 première feuilles de ton classeur
For i = 1 to NBR_FEUILLES
worksheets(i).cells.AutoFilter ' efface les filtre
worksheets(i).cells.AutoFilter ' le remet par défaut
next
Fred
http://expertise-excel.com/