Filtre auto.

[Famu]

Bonjour à tous,

Comment, par une Macro, supprimer un filtre automatique sur une feuil ?

Merci pour votre aide,
Famu

 

[C@thy]

c'est la même instruction que pour filtrer sauf qu'il n'y a pas de critères

exemple :

Sub Filtrer()
Dim Cel As Range
Application.ScreenUpdating = False
With ActiveSheet
.Range("A3:C3").AutoFilter Field:=3, Criteria1:="3"
.Calculate
End With
Application.ScreenUpdating = True
End Sub

Sub Finfiltre()
Application.ScreenUpdating = False
With ActiveSheet
.Range("A3:C3").AutoFilter Field:=3
.Calculate
End With
Application.ScreenUpdating = True
End Sub

C@thy

 

[Famu]

Bonjour Cathy,

ça marche pas ! Mais je me suis mal exprimé :

La macro doit supprimer le filtre automatique sur plusieur feuilles. Le problème est que si sur une feuille (A), il y a déja le filtre auto. ( sans critère) et que sur l'autre feuille (B), il n'y a pas de filtre automatique, en faisant la macro suivante :

Sub Macro7()

Sheets("A").Select
Selection.AutoFilter
Sheets("B").Select
Selection.AutoFilter

End Sub

on obtient l'inverse ! Feuille A : plus de filtre et feuille B : filtre.

Pas cool tout ça...