Réinitialiser les filtres à l'ouverture

Version imprimable

16/02/2016, 08h39
cl3m_

Réinitialiser les filtres à l'ouverture
Bonjour,
J'ai navigué quelque peu de forum en forum mais je n'ai pas trouvé exactement mon bonheur.

Je souhaite reinitialiser (sans supprimer) tout les filtres de mon classeur à son ouverture, de manière automatique.

J'ai essayé quelque chose comme
Code:

1 2 3 4 5 6 7 Sub test_filtre() Workbook.ShowAllData End Sub
Malheureusement ca ne réponds pas à ce que je recherche.

Merci beaucoup pour votre aide!

Bonjour,

essayer avec

Code:

1
2
3
4
5
6
7
8
9
Sub test_filtre()
 
'activesheet ou bien créer un objet feuille
 
If ActiveSheet.FilterMode Then
cells.AutoFilter
End If
 
End Sub

Cordialement

Pascal

16/02/2016, 14h28
cl3m_

Bonjour,
Merci pour ta réponse,

En mettant le code que tu m'as gentillement donné dans this work book, en enregistrant puis fermant et réouvrant le fichier, les filtres sont toujours présents sur la feuille ou j'ai filtré pour faire un test.
Ta macro concerne-t-elle tout le classeur?

Merci encore
17/02/2016, 11h31
joe.levrai
Bonjour,

cette procédure, à l'ouverture du classeur, vérifie si un filtre automatique est posé sur la feuille "LaFeuille".

S'il y a un filtre auto ET qu'un filtrage est en place : le filtrage est enlevé, mais le mode "filtre automatique" est toujours en place.

A toi de remplacer "LaFeuille" par le nom de la feuille où tu souhaites que l'action soit réalisée :
Code:

1 2 3 4 5 Private Sub Workbook_Open() With ThisWorkbook.Worksheets("LaFeuille") If .FilterMode Then .ShowAllData End With End Sub
17/02/2016, 13h49
cl3m_

Bonjour, merci pour ta réponse.
Je suis pas doué, car j'ai essayer de mettre ta macro dans la feuille concernée en changeant le nom, dans ThisWorkbook et dans un module, aucune des trois possibilités n'a marché. :(
J'ai bien modifié le nom pour que ca corresponde au nom de mes feuilles..... :(
17/02/2016, 15h20
joe.levrai

C'est dans le module "ThisWorkBook" qu'il faut mettre la procédure.

tu peux copier l'ensemble du contenu de ce module et le montrer ?
17/02/2016, 16h00
cl3m_

Ok je viens de comprendre...
J'ai une macro qui cache certains onglets, aussi pas possible d'executer la macro.
J'ai mis la macro filtre avant la macro hide et ca fonctionne.

N'y aurait-il pas un code pour faire le classeur en entier directement plutôt que de faire feuille par feuille?

Merci encore

Qu'une macro applique ceci d'un bloc sur l'ensemble des feuilles : non

Que la macro proposée puisse faire l'action sur toutes les feuilles du classeur : oui

Code:

1
2
3
4
5
Dim Feuille as WorkSheets
 
For Each Feuille In Thisworkbook.Worksheets
    ' l'action sur la feuille
Next Feuille

Pour gérer les feuilles masquées, une adaptation :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Feuille As Worksheet
Dim Masquer As Boolean
    For Each Feuille In ThisWorkbook.Worksheets
        With Feuille
            Masquer = False
            If .Visible = xlSheetHidden Then
                .Visible = xlSheetVisible
                Masquer = True
            End If
 
            If .FilterMode Then .ShowAllData
            If Masquer Then .Visible = xlSheetHidden
        End With
    Next Feuille

18/02/2016, 13h54
cl3m_

C'est juste parfait!
Merci encore!

Bonne continuation!