XL 2019 Enlever filtre tableau avec vba

[Olympe46]

Bonjour à tous
J'ai ce code afin d'enlever les filtres de mon tableau mais cela ne marche pas il mets une erreur :

Ci-dessous le code

Sub tt()
On Error Resume Next
With Sheets("OP1T0501")
.Activate
  ActiveSheet.ListObjects("T_OP1T05").Range.AutoFilter
End With
End Sub

Merci pour votre aide

 

[sylvanu]

Bonjour Olype,
Essayez :

Sub tt()
    On Error Resume Next
    Sheets("OP1T0501").Activate
    Range("T_OP1T05").AutoFilter
End Sub

 

[fanch55]

Bonjour,
Si vous voulez supprimer tout filtre et moyen de filtrer :

    Range("Tableau1").AutoFilter

Si vous voulez juste vider le filtre en cours et pouvoir continuer à filtrer :

    With Range("Tableau1").ListObject
      If Not .AutoFilter Is Nothing _
        Then .AutoFilter.ShowAllData
    End With

 

[Jean-Eric]

Bonjour,
Essaie ainsi :

Sub tt()
    With Worksheets("OP1T0501").ListObjects("T_OP1T05")
        If .ShowAutoFilter Then .AutoFilter.ShowAllData
    End With
End Sub