Détection de filtre automatique

Je voudrais enlever le filtre automatique sur de nombreuses feuilles d'un classeur
mais certaines feuilles ne contiennent pas de filtre automatique !!! :?
et ma macro plante si il n'y a pas de filtre activé.

Code:

---

1 2 3 4 5 6

Sub sup_filtre() For r = 1 To Sheets.Count Sheets(r).Select Selection.AutoFilter Next r End Sub

---

comment tester la présence d'un filtre auto

Merci d'avance :D

Bonjour,

Il suffit d'ignorer l'erreur

Code:

---

1 2 3 4 5 6 7

Sub sup_filtre() For r = 1 To Sheets.Count Sheets(r).Select On Error Resume Next Selection.AutoFilter Next r End Sub

---

bonsoir


Un autre exemple sans gestion d'erreur

Code:

---

1 2 3

With Worksheets("Feuil1") If Not .AutoFilterMode Then .Range("A1").AutoFilter End With

---

http://excel.developpez.com/faq/?pag...iltreAutoMacro


bonne soirée
michel

Merci beaucoup à David2304 &S ilkyRoad pour votre réactivité.
je met tout de suite en application vostre aide
A+:D