Discussion :

[smogy]

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 :

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

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.

[parmi]

Bonjour,

Tu peux effacer les filtres puis les remettre

Code :

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

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

[parmi]

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 :

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

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 :

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

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

[smogy]

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

Code :

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

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?

[Marc-L]

Bonjour.

Code :

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

1
2
3
4
5
Sub Retour()
    With Worksheets("Suivi")
        If .FilterMode Then .ShowAllData
    End With
End Sub

_____________________________________________________________________________________________________

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

_____________________________________________________________________________________________________

Je suis Charlie, Bardo, Sousse

[smogy]

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.



Merci de votre aide,

[parmi]

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 ?

[smogy]

J'utilise la version 2010.

[parmi]

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

[Marc-L]

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



_____________________________________________________________________________________________________

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