Discussion :

[Oh!Tofocus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[David2304]

Bonjour,

Il suffit d'ignorer l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir


Un autre exemple sans gestion d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Oh!Tofocus]

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