Discussion :

[cl3m_]

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 :

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

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!

[bpascal123]

Bonjour,

essayer avec

Code :

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

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

[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

[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 :

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

1
2
3
4
5
Private Sub Workbook_Open()
    With ThisWorkbook.Worksheets("LaFeuille")
        If .FilterMode Then .ShowAllData
    End With
End Sub

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

[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 ?