Discussion :

[renton59]

bonjour à tous

Dans mon entreprise, nous utilisons Excell 2007.
Nous travaillons à plusieurs ( non simultanément ) sur des fichiers excell contenant beaucoup de données.
Afin de s'y retrouver au sein de ces fichiers, nous avons posé des filtres sur les colonnes.
La consigne interne est la suivante : lorsque l'on ferme un fichier, il faut cocher la case "sélectionner tout" pour chaque filtre afin que le collègue suivant ait, dès l'ouverture, la totalité des informations sous les yeux.

Sur certains fichiers il y a une bonne douzaine de filtres et l'opération est un peu longue dans certains cas, et zappée par certains.

J'aimerai savoir s'il existe une possibilité d'automatiser cette manipulation ( RAZ de tous les filtres ) lorsque l'on ferme un fichier . Une macro pourrait peut être remplir cette fonction ou un bouton sur le classeur excell.

J'espère avoir été clair et suis ouvert à toutes questions.
Merci de votre aide
Pierre

[Didier Gonard]

Bonjour,

Filtres automatiques ou avancés ?

vois, dans l'aide vba, du côté de :

si tu veux les forcer aux bonnes habitudes :

FilterMode, propriété

sinon :

AutoFilter, méthode
AdvancedFilter, méthode etc...

vois ici "Si le filtre automatique existait déjà, celui-ci sera désactivé." aussi

cordialement,

Didier

[Gorfael]

Salut renton59 et le forum
Sur le module ThisWorkBook tu peux essayer

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AutoFilterMode = False
FilterMode = False
End Sub

Mais, sur la feuille active, ça ne rend pas visibles tous les enregistrement, ça supprime le mode filtre. Il faudrait sans doute les recréer ensuite, mais là, on a pas assez d'infos (plage de titre, ça concerne une ou plusieurs feuilles, etc...)
A+

[meud007]

De la même façon, pour remettre les filtre à l'ouverture, dans la feuille ThisWorkbook:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Workbook_Open()
Dim f As Worksheet, r As Range
    For Each f In ActiveWorkbook
        Set r = Range(f.Range("A1"), f.Range("A1").End(xlToRight))
        r.AutoFilter
    Next
End Sub

Pour mettre un filtre automatique si les entêtes sont sur la première ligne de chaque feuille

[renton59]

Merci pour vos réponses et excusez le temps considérable que je met à réagir (j'ai eu beaucoup de taf).

Autant prévenir tout se suite, je ne suis pas un développeur et je maitrise mal les macros sous excell.
Cependant, j'ai testé les deux solution proposées.

Celle proposée par meud007 me renvoir une erreur d'exécution 438.
"propriété ou méthode non gérée par cet objet"
il surligne ensuite la ligne suivante :
For Each f In ActiveWorkbook

Au survol de la lettre f, c 'est écrit f=nothing

Celle proposée par Gorfael ne renvoit pas d'erreur mais ne répond pas à mon besoin.

Je vais tenter de mieux expliquer mon besoin.
J'ai une feuille de calcul avec une dizaine de colonnes. Chaque colonne contient une entête ou est inscrit la nature des infos contenues dans les colonnes ( Nom, prénom, adresse ... )
Sur chaque entête de colonne, il y a un menu déroulant permettant de sélectionner soit tout ( sélectionner tout ) ou soit cocher les éléments que l'on veux voir dans la colonne ( Nom 1, Nom 2, Nom 3... ) afin d'y voir plus clair.

Mon objectif est le suivant.:
Je travaille sur la fiche, fait des modifications sur certains noms et fait en sorte que l'intégralité des noms ne soit pas visible.
J'enregistre les modifications mais je ne prends pas la peine de recliquer sur chacune des cases "sélectionner tout" de chaque colonne.
Je souhaiterai que lors de l'ouverture suivante, toutes les cases selectionner tout de tous les filtres soient cochées et l'ensemble des valeurs de tout la feuillle soit visible.

J'espère avoir été clair et vous remercie par avance du temps que vous prendrez pour me lire.

Pierre

[Pierre Fauconnier]

Bonjour

Dans le module du classeur (ThisWorkbook, par défaut),

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim ws As Worksheet
 
  For Each ws In Worksheets()
    If ws.FilterMode = True Then ws.ShowAllData
  Next ws
End Sub

Ce code teste si la feuille possède un filtre automatique, et dans l'affirmative, affiche toutes les données.

[renton59]

Bonjour

C'est exactement le résultat que j'attendais.
J'ouvre le fichier, coche les filtres comme bon me semble, fais mes modifications puis les enregistre.
Je ferme le fichier sans prendre la peine de cocher de nouveau toutes les boites de dialogue "Selectionner tout" pour chaque filtre.

Lors de l'ouverture suivante, je découvre l'intégralité des données de ma feuille ( équivalent à toutes les cases "selectionner tout" cochées).

Merci beaucoup, c est tout ce que je recherchais.
Mine de rien, ca fait gagner du temps et de la bonne humeur pour le travail collaboratif.

Encore Merci
Pierre
Comment met on le petit "Résolu" ... quelqu'un a une macro pour cela ?