Suppression des Filtres via macro

Bonjour à tous,

j'aurai besoin de votre aide
dans ma feuille j'ai créé un bouton "No Filtre" dont le but est la suppression de ou des filtres sur la page concernée
malheureusement je n'y arrive pas et je ne comprends pas mon erreur
j'ai créé une macro :

Code:

---

1 2 3 4 5

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

---

mais l'appui sur le bouton reste sans effet (?) , tout ayant pris soin d'activer les macros ....

je mets en copie le classeur

merci encore par avance
pascal

Hello,
il faut que tu effaces l' "AutoFilter" de ta table :

Code:

---

ActiveSheet.ListObjects("Tableau1").AutoFilter.ShowAllData

---

Ami calmant, J.P

Merci jurassic

çà a l'air effectivement de mieux fonctionner
Est-ce parce que j'ai nommé ma feuille "Tableau1" que je suis obligé de faire

Code:

---

1 2	ActiveSheet.ListObjects("Tableau1").AutoFilter.ShowAllData

---

et non pas plus simplement ?

Code:

---

AutoFilter.ShowAllData

---

mais comment faire pour effacer ce nom stp ?

pascal

Bonjour

Citation:

---

et non pas plus simplement ?
Code : AutoFilter.ShowAllData

---

parce que Autofilter est une propriété d'un objet ListObject donc il faut absolument référencer l'objet parent.

Essaye avec :

Code:

---

ActiveSheet.ListObjects(1).AutoFilter.ShowAllData

---

... pourvu que ta feuille ne contienne qu'un seul Listobject

Ok

Bien Merci Tête de chat.....:)

sinon pour effacer les filtres de toutes les tables de la feuille active :

Code:

---

1 2 3 4 5 6 7

Sub aa() Dim ListObj As ListObject On Error Resume Next For Each ListObj In ActiveSheet.ListObjects ListObj.AutoFilter.ShowAllData Next End Sub

---

Grand Merci à vous deux
jurassic pork & Tête de chat

de m'avoir aidé , c'était sympa d'avoir pris du temps pour me répondre
je clôture ma demande et vous souhaite

Une Bonne Journée
pascal