Remise à zéro des filtres d'un classeur Excel
fantocool
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention -
Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous.
J'ai un classeur excel avec plusieurs feuilles (6 feuilles), je voudrai remettre à zéro tous les filtres des feuilles en une fois (!!! pas supprimer les filtres !!!!).
J'ai trouvé la macro ci-dessous sur le net, mais je n'arrive pas à la faire fonctionner pour toutes mes feuilles en une fois.
Je vous remercie bcp.
Sub test_filtre()
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.FilterMode = True Then
Sh.ShowAllData
Sh.Range("_FilterDataBase").AutoFilter
End If
Next
End Sub
J'ai un classeur excel avec plusieurs feuilles (6 feuilles), je voudrai remettre à zéro tous les filtres des feuilles en une fois (!!! pas supprimer les filtres !!!!).
J'ai trouvé la macro ci-dessous sur le net, mais je n'arrive pas à la faire fonctionner pour toutes mes feuilles en une fois.
Je vous remercie bcp.
Sub test_filtre()
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.FilterMode = True Then
Sh.ShowAllData
Sh.Range("_FilterDataBase").AutoFilter
End If
Next
End Sub
A voir également:
- Vba réinitialiser filtre
- Reinitialiser pc - Guide
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Reinitialiser pc sans mdp - Guide
- Réinitialiser manette ps4 - Guide
- Réinitialiser chromecast - Guide