Remise à zéro des filtres d'un classeur Excel Fermé

Question

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

Gyrus · Answer

Bonjour,

As-tu essayé
Sub test_filtre()Dim Sh As Worksheet    For Each Sh In Worksheets        If Sh.FilterMode = True Then            Sh.ShowAllData        End If    NextEnd Sub
A+

Remise à zéro des filtres d'un classeur Excel

1 réponse

Discussions similaires