Fitre automatique activé ou pas ?

Bonsoir à tous,

Question à mon avis plus que simple pour des personnes aguerries !

Comment vérifier qu'un filtre automatique ( sur la ligne 2 d'une feuil1 ) est activé à l'ouverture d'un classeur ? Si il l'est, ne rien faire, sinon l'activer.

Merci d'avance.

J.

Bonsoir,

Private Sub workbook_open()
With worksheets("Feuil1")
.AutoFilterMode=False
.Cells(2,1).Autofilter
End With
End Sub

Cdlt.

Bonjour,

Cela fonctionne parfaitement. Merci

JM.