Discussion :

[cobra38]

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 :

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

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

[jurassic pork]

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

Code :

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

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

Ami calmant, J.P

[cobra38]

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 :

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

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

et non pas plus simplement ?

Code :

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

AutoFilter.ShowAllData

mais comment faire pour effacer ce nom stp ?

pascal

[Tête de chat]

Bonjour

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 :

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

ActiveSheet.ListObjects(1).AutoFilter.ShowAllData

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

[cobra38]

Ok

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

[jurassic pork]

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

Code :

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

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