Activé et désactivé un filtre automatique

[Atiom]

Bonjour le forum

Je souhaiterais que lorsque une feuille est active le filtre automatique soit appliqué dans une plage.

Et ensuite lorsque je quitte cette feuille cette a dire des qu’elle n’est pas active alors il faut supprimer le filtre.

Je fais en test comme ça ;

Private Sub Worksheet_Activate()
    Range("B10:G10").Select
    Selection.AutoFilter
End Sub

Private Sub Worksheet_Deactivate()
    Range("B10:G10").Select
    Selection.AutoFilter
End Sub

Mais il y a quelque chose de faux :

Merci de votre aide.

 

[PascalXLD]

Re : Activé et désactivé un filtre automatique

Bonjour

une méthode de Thierry pour désactiver

With activesheet
If .FilterMode = True Then .ShowAllData
End With

 

[Creepy]

Re : Activé et désactivé un filtre automatique

Bonjour le Forum, Atiom,

Essaie comme ceci, chez moi ca fonctionne :

Range("B10:G10").AutoFilter, sans le Select.

@+

Creepy

 

[CB60]

Re : Activé et désactivé un filtre automatique

Bonjour
A tester?

Private Sub Worksheet_Activate()
 
 
If Not ActiveSheet.AutoFilterMode Then 
ActiveSheet.Range("B10:G10").AutoFilter
 End If
End Sub
Private Sub Worksheet_Deactivate() 
 
Worksheets("feuil2").AutoFilterMode = False
End Sub

 

[Atiom]

Re : Activé et désactivé un filtre automatique

Bonjour Pascal, Creepy et Bruno.

Impeccable.🙂

Merci beaucoup à vous 3.

Bonne fin de journée.