XL 2019 Enlever filtre tableau avec vba

Olympe46 · 25 Juillet 2022

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

VB:

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 · 25 Juillet 2022

Bonjour Olype,
Essayez :

Code:

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

fanch55 · 25 Juillet 2022

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

VB:

    Range("Tableau1").AutoFilter

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

VB:

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

Jean-Eric · 25 Juillet 2022

Bonjour,
Essaie ainsi :

VB:

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