Remise à zéro des filtres d'un classeur Excel
fantocool
Messages postés
8
Statut
Membre
-
Gyrus Messages postés 3360 Statut Membre -
Gyrus Messages postés 3360 Statut Membre -
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
