Atiom XLDnaute Occasionnel 29 Décembre 2008 #1 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 ; Code: Private Sub Worksheet_Activate() Range("B10:G10").Select Selection.AutoFilter End Sub Code: Private Sub Worksheet_Deactivate() Range("B10:G10").Select Selection.AutoFilter End Sub Mais il y a quelque chose de faux : Merci de votre aide.
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 ; Code: Private Sub Worksheet_Activate() Range("B10:G10").Select Selection.AutoFilter End Sub Code: 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 XLDnaute Barbatruc Modérateur 29 Décembre 2008 #2 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 Vote positif 0 Vote négatif
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
C Creepy XLDnaute Accro 29 Décembre 2008 #3 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 29 Décembre 2008 #4 Re : Activé et désactivé un filtre automatique Bonjour A tester? HTML: 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 Dernière édition: 29 Décembre 2008 Vote positif 0 Vote négatif
Re : Activé et désactivé un filtre automatique Bonjour A tester? HTML: 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 XLDnaute Occasionnel 29 Décembre 2008 #5 Re : Activé et désactivé un filtre automatique Bonjour Pascal, Creepy et Bruno. Impeccable. Merci beaucoup à vous 3. Bonne fin de journée. Vote positif 0 Vote négatif
Re : Activé et désactivé un filtre automatique Bonjour Pascal, Creepy et Bruno. Impeccable. Merci beaucoup à vous 3. Bonne fin de journée.