Discussion :

[manuseverine]

Bonjour,

Grâce à l'enregistreur de macro, j'ai réussi a récupérer ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
' Annulation de tous les filtres en cours
    Selection.AutoFilter
End Sub

Par contre, comment peut-on lui dire, vérifies s'il y a des filtres en cours et si oui, tu les annules, sinon tu ne fais rien ?

[Didier Gonard]

Bonjour,

la réponse est obtenue en clair en cliquant sur le bouton FAQ Excel, puis sur filtres et comment utiliser les filtres par macro

cordialement,

Didier

[manuseverine]

merci Ormonth, la réponse est donc celle là, je crois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Worksheets("Feuil1")
    If .FilterMode = True Then .ShowAllData
End With

Je suis désolé, je ne voulais pas enfreindre le règlement, j'ai bien cherché mais au mauvais endroit apparemment.

Je suis allé dans la FAQ mais là :
http://excel.developpez.com/faq/inde...re#EventFiltre

c'est dans : comment identifier un filtre dans une feuille de calcul

j'ai encore tout faux désolé

[Gorfael]

Salut manuseverine et le forum

Je suis désolé, je ne voulais pas enfreindre le règlement, j'ai bien cherché mais au mauvais endroit apparemment.

Pour moi, ce n'est pas une engueulade, juste une méthode de recherche, alors pas besoin de t'excuser.
Pas sûr de comprendre ton problème, avec tes postes.
Pour annuler un filtre auto, il me semble que ce n'est pas la bonne méthode.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Worksheets("Feuil1")
    .AutoFilterMode = False
    .FilterMode = False
End With

Supprimera les modes de filtre sur ta feuille. À mon sens, pas besoin de faire un test, puisque le but est qu'après les instructions, il n'y ait plus de filtre est donc que les modes soient à Faux, qu'ils soient vrai ou Faux avant.
A+

[manuseverine]

tu as raison, la solution que j'avais marqué (je l'ai prise sur la FAQ) marche mais la tienne permet d'enlever le mode filtre en même temps

Je te remercie beaucoup

Et merci au fait pour les Cours Excel c'est bien sympa