Problème filtrage macro

Bonjour,

Après avoir planché plusieur heures sur le problème, je m'en remet à vos compétences.

J'essaie de faire un truc tout bête. J'ai créé des filtres automatiques à l'aide de macros et j'aimerais à tout moment désactiver ces filtres à l'aide d'un bouton que j'ai nommé "RETOUR". J'ai testé pas mal de possibilités trouvées sur le net, mais aucune ne marche

Exemple (ne marche pas, je ne sais pas où ça coince) :

Code:

---

1 2 3 4

Sub RETOUR() On Error Resume Next ActiveSheet.ShowAllData End Sub.

---

Je ne suis pas très douée en programmation, alors si vous pouviez me donner un petit coup de main, ce serait adorable :)

Voici en PJ mon fichier excel.

Merci.

Bonjour,

Tu peux effacer les filtres puis les remettre

Code:

---

1 2	Sheets("MaFeuille").Autofiltermode = False Sheets("MaFeuille").Rows(1).Autofilter ' si les filtres sont sur la ligne 1

---

Et si tu as plusieurs feuilles dans lesquelles tu veux faire le même traitement, tu peux te créer une petite routine comme ceci
Ça permet de rajouter les filtres sur la ligne que tu veux

Code:

---

1 2 3 4

Sub EnleverFiltres(Feuille As String, LigneFiltrée As Long) Sheets(Feuille).AutoFilterMode = False Sheets(Feuille).Rows(LigneFiltrée).AutoFilter End Sub

---

et tu l'appelles ainsi

Code:

---

1 2	EnleverFiltres "MaFeuille", 1 EnleverFiltres "AutreFeuille", 3

---

Donc si je veux agir juste sur la feuille concernée ("Suivi") je tape le code :

Code:

---

1 2 3

Sub RETOUR() Sheets("Suivi").Autofiltermode = False End Sub.

---

C'est ça?

J'ai testé et ça ne marche pas.

Est-ce que le fichier excel que j'ai join est utilisable?

Bonjour.

Code:

---

1 2 3 4 5

Sub Retour() With Worksheets("Suivi") If .FilterMode Then .ShowAllData End With End Sub

---

_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_____________________________________________________________________________________________________

Je suis Charlie, Bardo, Sousse

J'ai ce message d'erreur qui apparait "erreur d'execution '1004': la méthode showalldata de la classe worksheet a échoué".

Peut-être que je ne fait pas dans la bonne boite de dialogue. Il y'en une qui s'apelle "module" et une autre "this workbook". Je ne saisis pas bien la différence.

Pièce jointe 182492

Merci de votre aide,

Citation:

---

Envoyé par smogy

Donc si je veux agir juste sur la feuille concernée ("Suivi") je tape le code :

Sub RETOUR()
Sheets("Suivi").Autofiltermode = False
End Sub.

C'est ça?

---

Il manque la 2e ligne si tu veux remettre des filtres sur la ligne. Autrement, tu te retrouves sans aucun filtre...

Quelle version d'Excel utilises-tu ?

J'utilise la version 2010.

Alors mon code et celui de Marc-L devraient fonctionner si ta feuille n'est pas protégée...

Il faudrait peut-être ne pas oublier de déprotéger la feuille …



_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci, mais je viens de vérifier et elle n'est pas protégée.

Puis-je envoyer mon fichier excel pour que vous y jetiez un oeil?

Tu as déjà joint ton fichier dans ton premier message.
Je viens de voir que tu utilises un tableau (ListObject).
C'est un peu différent

Essaie ceci

Code:

---

1 2	ActiveSheet.ListObjects("Tableau4").ShowAutoFilter = False ActiveSheet.ListObjects("Tableau4").ShowAutoFilter = True

---

Super ça marche!! Merci beaucoup! J'avais trouvé une autre technique qui consistait à enregisrer la macro de manière "manuelle" en cochant "selectionner tout" dans les filtres. Ca prenait un temps fou une fois la macro lancée.

Rapide et efficace. C'est parfait. :)

J'en profiterai bien pour poser une autre question qui porte aussi sur les filtres.

J'aimerais que le filtre se désactive dès qu'on reclique sur le bouton. Par exemple, si je cherche les travaux à réaliser pendant la période 2015-2016, je clique sur le bouton 2015 -2016. J'aimerais qu'en recliquant dessus, ça désactive le filtre. Voici mon code :

Code:

---

1 2 3 4

Sub periode20152016() ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=8, Criteria1:= _ RGB(83, 141, 213), Operator:=xlFilterCellColor End Sub

---

Merci de votre aide!

Juste à appeler RETOUR juste avant

Ça peut être comme ceci ou directement dans les macros comme tu montres

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton6_Click() RETOUR periode20182021 End Sub   Private Sub CommandButton7_Click() RETOUR periode20172018 End Sub   Private Sub CommandButton8_Click() RETOUR periode20162017 End Sub   Private Sub CommandButton9_Click() RETOUR periode20152016 End Sub

---

Je viens de tester. Je clique une première fois sur le bouton, ça filtre, ok. Mais dès que je reclique dessus, ça défiltre puis refiltre instantanément.

J'avais mal compris ce que tu voulais faire...
Oublie mon autre message avec les RETOUR. Enlève-les.

Fais plutôt ainsi pour toutes tes macros du même genre et change l'index (ici 8) pour la colonne nécessaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub periode20152016() ' ' periode20152016 Macro '   ' If ActiveSheet.ListObjects("Tableau4").AutoFilter.Filters(8).On = True Then ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=8 Else ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=8, Criteria1:= _ RGB(83, 141, 213), Operator:=xlFilterCellColor End If End Sub

---

SUper! Merci quelle efficacité!

Bon je commence à mieux comprendre la logique "programmation" (enfin comprendre est un bien grand mot). Tout marche nickel.

Merci à vous deux pour votre aide,