Macro enlever les filtres actifs d'1 page précise en fermant le fichier

Question

J'ai un fichier excel avec plusieurs onglets, dont l'onglet "SUIVI", qui est un grand tableau avec de nombreuses colones disposant de filtres. Je voudrais que lors de la fermeture du fichier, tous les filtres dans le tableau de l'onglet "SUIVI" (et uniquement celui-ci) se désactivent. D'avance merci! bàv Olivier...

Arturo83 · Answer

Copiez ceci dans le module VBA "Thisworkbook", et remplacez "A1:K1" par la plage de la ligne des filtres. Faire ALT + F11 pour accéder au module VBA. Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Sheets("SUIVI").Select Range("A1:K1").Select ActiveSheet.ShowAllData End Sub Cdlt...

Jean-Eric · Answer

Bonjour,
Bonjour Arturo83,
Une autre proposition !?.
Cdlt.

Option Explicit

'cas tableau structuré
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lo As ListObject
    Set lo = Worksheets("Suivi").ListObjects(1)
    If lo.ShowAutoFilter Then lo.AutoFilter.ShowAllData
End Sub

'cas plage de cellules
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Worksheets("Suivi").AutoFilter
        If .FilterMode Then .ShowAllData
    End With
End Sub