enlever filtres VBA (Je reviens)[RESOLU]

[spyki]

Bonjour le forum.
Je viens a vous, je commence vba, je le reconnait pas très doué!
mon problème:
Quand j'ouvre mon fichier (il comporte plusieurs feuilles)
je voudrais que tout les filtres soient enlevés (effacer)
ou une autre idée?

fichier exemple joint

Merci de votre aide
J

 

[gilbert_RGI]

Re : enlever filtres VBA

Bonjour le forum.
Je viens a vous, je commence vba, je le reconnait pas très doué!
mon problème:
Quand j'ouvre mon fichier (il comporte plusieurs feuilles)
je voudrais que tout les filtres soient enlevés (effacer)
ou une autre idée?

fichier exemple joint

Merci de votre aide
J

Bonjour

placer ce code dans le thisworkbook en sauvegarder le fichier en xlsm

Private Sub Workbook_Open()
    For i = 1 To Sheets.Count
        Sheets(i).Select
        Cells.Select
        Selection.AutoFilter
    Next
End Sub

 

[spyki]

Re : enlever filtres VBA

Merci Bcp ça marche.
Bonne fêtes
J

 

[MJ13]

Re : enlever filtres VBA[RESOLU]

Bonjour Kkypi, Gilbert

Attention, avec le code de Gilbert, si il n'y a pas de filtre sur une feuille, le filtre va se mettre sur cette feuille.

Voici une autre solution dans le fcihier:

 

[spyki]

Re : enlever filtres VBA[RESOLU]

Merci MJ13 j'ai vu trop tard.....ce que tu a dis, effectivement si il n'y pas de filtre le filtre va se mettre sur cette page...
Au fait je me suis peut être mal exprimé.
Ce que je souhaite ce que qu'on j'ouvre mon fichier il n'y ait aucune donnée filtrée.
les filtres peuvent rester
Merci de ton aide
Juan

 

[MJ13]

Re : enlever filtres VBA (Je reviens)

Re

Dans ce Cas, teste le deuxième bouton de ce fichier.

 

[tototiti2008]

Re : enlever filtres VBA (Je reviens)

Bonjour à tous,

Cette version devrait conserver les "flèches"

Sub Test2()
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.FilterMode Then 'Si on ne voit pas toutes les données
            Sh.ShowAllData
        End If
    Next
End Sub

 

[spyki]

Re : enlever filtres VBA (Je reviens)

Merci a tous!!!
Je vais essayer, mais je crois que c'est bon maintenant

à nouveau un grand merci
et bonnes fêtes