enlever filtres VBA (Je reviens)[RESOLU]

gilbert_RGI

XLDnaute Barbatruc

• 21 Décembre 2011

• #2

Re : enlever filtres VBA

spyki à dit:

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

Cliquez pour agrandir...

Bonjour

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

Code:

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

 

Vote positif 0 Vote négatif

S

spyki

Guest

• 21 Décembre 2011

• #3

Re : enlever filtres VBA

Merci Bcp ça marche.
Bonne fêtes
J

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Décembre 2011

• #4

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:

 

Pièces jointes

• SupprimerFiltresDesFeuilles.xlsm

  18 KB · Affichages: 721

Vote positif 0 Vote négatif

S

spyki

Guest

• 22 Décembre 2011

• #5

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 22 Décembre 2011

• #6

Re : enlever filtres VBA (Je reviens)

Re

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

 

Pièces jointes

• SupprimerFiltresDesFeuilles2.xlsm

  18.4 KB · Affichages: 484

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Décembre 2011

• #7

Re : enlever filtres VBA (Je reviens)

Bonjour à tous,

Cette version devrait conserver les "flèches"

Code:

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

 

Vote positif 0 Vote négatif

S

spyki

Guest

• 22 Décembre 2011

• #8

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

 

Vote positif 0 Vote négatif