Discussion :

[android59]

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 :



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 :

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

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.

[Tête de chat]

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 :

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

if ws.filtermode then ws.showalldata

[deedolith]

Salut,

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

[android59]

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 ) .

[android59]

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

[android59]

re,

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

Code :

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

1
2
3
4
5
 
For Each f In ActiveWorkbook.Sheets
            On Error Resume Next
        f.ShowAllData
    Next

apparemment ça marche *

[Lulah]

Bonjour,

Faites très attention avec la ligne

Code :

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

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 :

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

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...

[Tête de chat]

Bonjour,

Code :

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

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 :

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

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 :

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

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

[android59]

merci bien