desactivation des filtres excels via macro

Bonjour,
dans mon fichier excel, j'ai créé un bouton ( importé une image) afin que lorsque je clique dessus, tous les filtres , de toutes mes pages se désactive et que mon tableau redevienne à la normale :

Pièce jointe 634177

Gràace à vos conseils, j'ai pu filtrés mes pages, mais j'ai fais quelques recherches et j'ai trouvé un code vba permettant normalement de desactiver les filtres et j'ai essayé de l'arranger pour mon traitement, dont voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub DésactiverTousLesFiltres()   Dim ws As Worksheet For Each ws In Worksheets   ws.ShowAllData   Next ws End Sub

---

quand j'appuie sur mon bouton "reset" il lance la macro DésactiverTousLesFiltres mais ça ne marche pas j'ai un message d'erreur.
Est ce que je m'y prend bien?
merci beaucoup.

Bonjour,

l'erreur doit intervenir chaque fois qu'une feuille n'est pas filtrée. Tu peux intégrer un on error resume next, ou, plus ciblé :

Code:

---

if ws.filtermode then ws.showalldata

---

Salut,

Es-tu au courant que cette fonctionnalité existe déjà dans le ruban ?
Onglet: Données ==> Groupe: Trier et filtrer ==> Bouton: Effacer

deedolith bonjour ( à tous egalement )

oui je sais mais l'idée est que sur ma page principal ( la 1ere feuille) j'ai une synthèse des autres feuilles.
Lorsque je clique sur mon premier bouton, toutes mes feuilles se filtrent, en fonction du choix de ma liste déroulante.

J'ai mis mon bouton reset pour que tous les filtres de toutes mes feuilles s'enlevent en un clic ( pour éviter qu'on ne soit obliger d'aller dans chacune des feuilles pour enlever le filtre manuellement ) .

Tête de chat Bonjour,
c'est génial ça marche, mais il ne me le fais que sur une seul feuille.
comment fait on pour l'appliquer au fichire excel entier ? faut il le declarer manuellement?

Merci beaucoup

re,

j'ai trouvé ce morceau de code assez simple :

Code:

---

1 2 3 4 5

For Each f In ActiveWorkbook.Sheets On Error Resume Next f.ShowAllData Next

---

apparemment ça marche *

Bonjour,

Faites très attention avec la ligne

Code:

---

1 2	On Error resume Next

---

car cela va ignorer toutes les lignes sur lesquelles potentiellement il peut y avoir des problèmes! Au moins utilisez

Code:

---

1 2 3 4

On error resume Next ' votre code ici On error Goto 0

---

qui permet de lire les instructions correctements après l'exception. Mais bon de manière générale à éviter...

Bonjour,

Code:

---

Comment fait-on pour l'appliquer au fichier Excel entier ? Faut il le déclarer manuellement ?

---

Même principe que ce que tu avais déjà fait donc je ne pensais pas qu'il était nécessaire de préciser.

Code:

---

1 2 3 4 5 6

Sub DésactiverTousLesFiltres() Dim ws As Worksheet For Each ws In Worksheets ws.ShowAllData Next ws End Sub

---

devient

Code:

---

1 2 3 4 5 6

Sub DésactiverTousLesFiltres() Dim ws As Worksheet For Each ws In Worksheets if ws.filtermode then ws.showalldata Next ws End Sub

---

merci bien ;)