Retirer filtre sur toutes les feuilles d'un classeur

[rudymagny]

Bonsoir à tous,
Voilà j'ai un bout de code qui me permet de retirer (enfin je pensais) tous les filtres activés sur les feuilles de mon classeur:

Application.ScreenUpdating = False
For Each M In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
    Sheets(M).Activate
    Range("B3:AE3").Select
    Selection.AutoFilter
    Range("A1:I1").Select
Next M
Application.ScreenUpdating = True

Mais en fin de compte il me retire bien les filtres des feuilles oû le filtre est activé, mais il met un filtre sur les feuilles sur lesquelles il n'y en avait pas.

Je ne vois pas comment faire un code qui permette de retirer les filtres des feuilles sur lesquelles "IL EST ACTIVE".

Merci d'avance

 

[SergiO]

Re : Retirer filtre sur toutes les feuilles d'un classeur

Bonsoir rudymagny

Essaie de rajouter ce qui est en rouge :

Application.ScreenUpdating = False
For Each M In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
    Sheets(M).Activate
    [COLOR=Red]If Sheets(M).AutoFilterMode Then[/COLOR]
    Range("B3:AE3").Select
    Selection.AutoFilter
    Range("A1:I1").Select
    [COLOR=Red]End if[/COLOR]
Next M
Application.ScreenUpdating = True

@+

 

[rudymagny]

Re : Retirer filtre sur toutes les feuilles d'un classeur

Bonsoir SergiO et merci.
J'ai testé et c'est nickel!
Merci et bonne soirée

 

[Staple1600]

Re : Retirer filtre sur toutes les feuilles d'un classeur

Bonsoir rudymagny, SergiO, le forum


edit:

Sub test2()
'avec l'aide de SergiO
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then ws.AutoFilterMode = False
Next ws
End Sub

J'ai essayé ça (ca a l'air de fonctionner)

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
ws.AutoFilterMode = False
Next ws
End Sub

 

[rudymagny]

Re : Retirer filtre sur toutes les feuilles d'un classeur

Bonjour Staple1600 SergiO,
J'avais pas vu hier, bah ça marche aussi.
C cool.

Je vous remercie et à plus tard.