Microsoft 365 Tester l'existence d'un filtre dans un tableau structuré

[BenHarber]

Bonjour le Forum,
Je cherche à tester l'existence d'un filtre dans un tableau structuré.
Mon objectif : s'il n'y a pas de filtres, en ajouter un. Et s'il y en a déjà un, s'assurer qu'aucun filtre n'est actif (sans les désactiver !)
Pouvez-vous m'aider dans la rédaction de la syntaxe SVP ?
J'ai commencé comme ça :

Sub testFiltre()
Dim monTab As ListObject
Set monTab = Feuil1.ListObjects("Tableau_Struct")
If monTab.AutoFilter Then 'Là, ça bugue
monTab.Range.AutoFilter 'Pas testé puisque je n'arrive pas à corriger la ligne ci-dessus
Else
monTab.AutoFilter.ShowAllData
End If
End Sub

Merci d'avance pour vos suggestions !

 

[TooFatBoy]

Essaye de remplacer

Set monTab = Feuil1.ListObjects("Tableau_Struct")

par

Set monTab = Range("Tableau_Struct").ListObjects

pour voir si ça fonctionne toujours.

 

[BenHarber]

Essayé : Négatif, mon capitaine !

 

[TooFatBoy]

Et sans le "s" à la fin ?

 

[BenHarber]

Ha oui : là, c'est passé ! 👍
Quelle est la différence ? Une syntaxe est-elle meilleure que l'autre ?

 

[TooFatBoy]

Quelle est la différence ? Une syntaxe est-elle meilleure que l'autre ?

Perso, je préfère la seconde car elle ne stipule pas la feuille dans laquelle se trouve le TS.
Mais sinon c'est la même chose.