Discussion :

[nicogef]

bonjour

j'ai un problème sur excel lors de la fermeture du fichier j'ai deux code a exécuté en fonction de l'appui sur une touche ou pas (touche ctrl ou maj)

un code fermeture du ficher avec enregistrement et remise a zero du filtre
deuxieme code fermeture du ficher avec enregistrement sans remise a zero du filtre

code a exécuté sans l’appui d'une touche

Code :

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

1
2
3
4
5
6
7
8
9
10
 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
 
If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If

code a exécute sur l'appui d'une touche

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If

j’ai essai avec onkey mais ne marche pas
cordialement et merci d'avance
nicogef

[clementmarcotte]

Bonjour,

Tu ne peux pas avoir deux Workbook_BeforeClose pour le même classeur.

Tu utilises un test quelconque pour déterminer l'action nécessaire et tu effectues l'une ou l'autre dans la même sub Workbook_BeforeClose

[Menhir]

lors de la fermeture du fichier j'ai deux code a exécuté en fonction de l'appui sur une touche ou pas (touche ctrl ou maj)

La macro Workbook_BeforeClose n'est pas un raccourci clavier qui se déclence avec telle ou telle touche. Elle se déclenche à la fermeture du classeur, c'est tout.

Ce qu'il faudrait que tu fasses, ce sont deux macros classiques, éventuellement reliée à un raccourci clavier ou un bouton, et qui se terminent toutes les deux par ActiveWorkbook.Close.
Et supprimer les Workbook_BeforeClose.

[nicogef]

bonjour

le souci est que les personnes qui vont utilisé le ficher utilise la croix de fermeture et qu'il faut que le code( enregistré sans filtre) soit pris en compte

et que si la personnes qui utilisera l’autre codes ne veut pas que le filtres se reinitialiser

cordialement

nicogef

[clementmarcotte]

Bonjour,

Je t'ai dit quoi faire. Tout ce que cela te prend, c'est une variable publique de type booléen, avec un bloc If then else.

= true tu enregistres le filtre
= false pas d'enregistrement du filtre

Même le clic sur la croix déclenche l'événement before_close.

[Menhir]

le souci est que les personnes qui vont utilisé le ficher utilise la croix de fermeture et qu'il faut que le code( enregistré sans filtre) soit pris en compte

Perso, je suis pour l'éducation des utilisateurs plutôt que pour la mission impossible qui consisterait à essayer de pallier à toutes les conneries possibles et imaginables qu'ils pourraient faire.

Quand tes utilisateurs auront perdu deux ou trois fois plusieurs heures de boulot parce qu'ils ne procèdent pas de la bonne manière, procéder correctement va devenir pour eux un réflexe pavlovien.
Cette règle est aussi fiable que celles de la physique quantique : rien de démontre formellement que ce soit vrai mais aucune expérience réalisée n'est parvenue à la contredire.

[RyuAutodidacte]

Bonjour Menhir,

J'aime bien cette manière de procéder

Edit : parfois pour des raisons indépendamment de notre volonté, on a pas le choix, mais quand c'est possible autant le faire

[patricktoulon]

@Menhir et RYU

oui la manière de procéder est éducative certes mais quand tu es patron tu pense plus loin car il s'agit de ton portefeuille
et si tu peux éviter une perte d'argent avec les mauvaise manip qui retarde le boulot tu le fait
mais tout le monde n'est pas patron
tout le monde n'investi pas 20000 euro de ces deunier perso dans une entreprise
a bon entendeur les donneurs de leçons

[Marc-L]

Je m'en suis juste tenu aux réponses des primo intervenants et surtout à ceci :

lors de la fermeture du fichier j'ai deux codes à exécuter en fonction de l'appui sur une touche ou pas (touche ctrl ou maj)

Dans l'évènement unique de fermeture du classeur (Workbook_BeforeClose), juste tester l'état de chaque touche souhaitée
conditionnant une action spécifique via l'instruction If par exemple …

Ne pas oublier l'aide VBA interne comme le tutoriel de ce forum dédié aux évènements
et l'Enregistreur de macro livrant une base de code sur un plateau.