BenHarber
XLDnaute Occasionnel
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 !
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 !