Msgbox - détecter sa fermeture par clic sur croix

**jpma75** · 27/06/2021, 11h07

Bonjour,

Tout est dans l'intitulé.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Tuto_Click()
 
    MsgBox "Merci à Zaza pour cette présentation !", vbInformation, ""
 
    On Error GoTo suite
 
    ThisWorkbook.FollowHyperlink "S:\blabla Tuto.mkv"
    Exit Sub
suite:
    MsgBox "Le support a été déplacé ou supprimé !", vbCritical, "Alerte"
End Sub

Problème : si l'utilisateur clic sur la "petite croix" en haut à droite du Msgbox, le code est exécuté !
La seule chose que j'ai trouvé, c'est ça :

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  MsgBox "Bye ! " & CloseMode
End Sub

... (apparemment) ça ne fonctionne que sur 1 UF

Question : Est-il possible de détecter la fermeture d'1 Msgbox ?

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

**Thumb down** · 27/06/2021, 11h43

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
If MsgBox("test", vbYesNo + vbInformation, "titre") = vbYes Then
      Unload Me
End If
End Sub
 
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  MsgBox "Bye ! " & Array("Part le X du UserForm", "Par la fonction Unload Me")(Abs(CloseMode))
  Cancel = Not Cbool(CloseMode)
End Sub

**jurassic pork** · 27/06/2021, 13h18

hello,
appuyer sur la croix d'un msgBox est équivalent à appuyer sur le bouton Cancel de la boîte de dialogue :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testMsgBox() 
  rep = MsgBox("Merci à Zaza pour cette présentation !", vbInformation + vbOKCancel, "")
 
    On Error GoTo suite
    Select Case rep
    Case vbYes: Debug.Print "OK"
    Case vbCancel: Debug.Print "Cancel"
    End Select
 
    Exit Sub
suite:
    MsgBox "Le support a été déplacé ou supprimé !", vbCritical, "Alerte"
End Sub

Ami calmant, J.P

**jpma75** · 27/06/2021, 16h09

Bonjour et merci pour vos réponses,

Désolé, je n'ai pas compris.
La variable rep doit-elle être différente suivant que je clique sur OK ou sur la petite croix ?
En exécutant le code pas à pas, dans les deux cas, rep = 1

**jurassic pork** · 27/06/2021, 16h12

hello,

Envoyé par jpma75

Bonjour et merci pour vos réponses,

Désolé, je n'ai pas compris.
La variable rep doit-elle être différente suivant que je clique sur OK ou sur la petite croix ?
En exécutant le code pas à pas, dans les deux cas, rep = 1

pour que cela fonctionne il faut qu'il y ait le bouton Cancel dans le msgbox ( avec vbOKCancel)

Ami calmant, J.P

**jpma75** · 27/06/2021, 16h18

@ Thumb down

Private Sub CommandButton1_Click()

Il ne s'agit pas d'un bouton de commande mais d'un msgbox "simple" avec bouton OK uniquement

If MsgBox("test", vbYesNo + vbInformation, "titre") = vbYes Then

**Thumb down** · 27/06/2021, 16h41

Envoyé par jpma75

@ Thumb down

Il ne s'agit pas d'un bouton de commande mais d'un msgbox "simple" avec bouton OK uniquement

et je le teste commentnton msgbox?

Code :

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

1
2
3
4
 
 
msgbox "Le msggbox supent l’exécution du code, donc il suffit d’attendre le click sur OK !"
msgbox "OK"

le msgbox ne gère pas le click sur la croix!

**jpma75** · 28/06/2021, 23h36

@ l'ami calmant jp

pour que cela fonctionne il faut qu'il y ait le bouton Cancel dans le msgbox (avec vbOKCancel)

Avec vbOKCancel je comprends ta solution.

Merci et désolé pour ma réponse tardive,

Cdt
l'ami calmé jp

**Pierre Fauconnier** · 29/06/2021, 17h42

Salut

Envoyé par jurassic pork

[...]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testMsgBox() 
  rep = MsgBox("Merci à Zaza pour cette présentation !", vbInformation + vbOKCancel, "")
 
    On Error GoTo suite
    Select Case rep
    Case vbYes: Debug.Print "OK"
    Case vbCancel: Debug.Print "Cancel"
    End Select
 
    Exit Sub
suite:
    MsgBox "Le support a été déplacé ou supprimé !", vbCritical, "Alerte"
End Sub

Ami calmant, J.P

Avec vbinformation + vbokcancel, rep ne vaudra jamais vbYes ^^. Le code qui suit le On Error ne saura jamais planter, puisque la seule ligne de code qui pourra être éventuellement exécutée est le Debug.Print.Cancel. Ca ne lèvera jamais une erreur, ça. Du coup, le msgbox "Le support a été déplacé..." ne sera jamais exécuté non plus. Ca veut dire que la seule ligne qui sera à coup sûr exécutée est rep = msgbox(...), et celle qui sera éventuellement exécutée est Debug.Print "Cancel"...Je ne comprends donc pas bien l'exemple

De plus, rep n'est pas déclaré, donc le code ne sait pas être testé dans le cadre d'une utilisation des bonnes pratiques qui veulent que l'on force la déclaration des variables.

Perso, je me passe du on error, du case et surtout du exit sub... Beerk

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
  Dim Result As VbMsgBoxResult
 
  Result = MsgBox("Merci pour cette présentation", vbInformation + vbOKCancel)
  If Result = vbOK Then
    MsgBox "vous avez cliqué ok"
  Else
    MsgBox "vous avez cliqué sur Cancel ou la croix"
  End If
End Sub

**Pierre Fauconnier** · 29/06/2021, 17h50

Envoyé par Thumb down

[...]
le msgbox ne gère pas le click sur la croix!

Si, selon la configuration des boutons.

Les boutons vbYesNo ne donnent pas accès à la croix, mais vbOkCancel, vbYesNoCancel, vbRetryCancel y donnent accès et gère vbCancel (constante de valeur 2) en réponse. vbOk seul donne accès à la croix mais ne la gère pas puisqu'il n'y a pas de choix clairement posé. Tout cela est assez logique, en fait.

**jpma75** · 29/06/2021, 20h49

Bonjour Pierre,

Merci pour cette (ces) précision(s) !

J'avais répondu ceci à Alain :

Avec vbOKCancel je comprends ta solution.

Peut-être aurais-je dû dire "je comprends le principe" - car j'avais adapté le code comme tu viens de le proposer

... et je me suis même risqué à la simplification suivante qui fonctionne manifestement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Tuto_Film_Click()
Dim rep As Byte
 
    Unload Menu_Adm
    rep = MsgBox("Merci à zaza pour cette présentation !", vbOKCancel + vbInformation, "")
 
    On Error Resume Next
    If rep = 2 Then Exit Sub
 
    MsgBox "Le support a été déplacé ou supprimé !", vbCritical, "Alerte"
End Sub

**Pierre Fauconnier** · 29/06/2021, 21h04

Bonsoir JP

Comme dit dans ma précédente intervention et comme expliqué dans le billet cité, je n'aime pas les Exit Sub...

La proc dessous réalise le même travail, mais sans Exit Sub. Au passage, je ne vois pas d'utilité au On Error Resume Next dans ton code

. Et tant qu'à faire, je préfère utiliser les constantes comme vbOk, vbCancel ou vbYes plutôt que leurs valeurs numériques comme 1, 2 ou 6. C'est directement compréhensible à la lecture du code

Code :

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

1
2
3
4
5
6
7
Private Sub Tuto_Film_Click()
  Dim rep As Byte
 
  Unload Menu_Adm
  rep = MsgBox("Merci à zaza pour cette présentation !", vbOKCancel + vbInformation, "")
  If rep = vbOK Then MsgBox "Le support a été déplacé ou supprimé !", vbCritical, "Alerte"
End Sub

**jpma75** · 29/06/2021, 22h28

Bonsoir Pierre,

Désolé,

Avant de lire ton dernier message, je venais tout juste de voir (et donc de lire) ton billet sur le "bannissement" d'Exit Sub. Je prends acte !! Merci !
Je me doutais que ma prétendue "simplification" était encore truffée de coquilles.

Cela fait pour moi écho à notre dernier échange "Boucle sur Label" et à l'usage que je faisais de la syntaxe [a1]

Tu avais dit :

Dans mon billet, j'ai expliqué pourquoi j'étais contre cette pratique. Ca s'arrête là. Ce n'est pas moi qui maintient ce code, donc je me borne à défendre ce qui pour moi sont des bonnes pratiques et à fustiger ce qui pour moi sont des mauvaises pratiques, mais après, chacun code comme il l'entend, tant que je n'ai pas à repasser sur le code...

Echo ? Je m'explique. En fait, ta remarque m'a fait gamberger : (pour résumer) A partir de quand, peut-on être assuré qu'on a une bonne pratique ? Ne sait-on pas qu'elle est bonne quand on a identifié que la précédente était mauvaise ?

Le problème, c'est que par chance, sans doute, il se trouve qu'un code imparfait peut vivre avec ses tares dès lors que rien ne les révèlent... Mes "applications" sont généralement à destination d'autrui. Autant dire que j'aspire fébrilement à ce qu'elles soient fiables et stables et que j'y mets toute l'énergie possible. Mais je me dis que si quelqu'un comme toi (...) lisait mon code, il me donnerait des frayeurs a posteriori mais pour la bonne cause !!! Et le paradoxe, c'est que je ne me vois pas poster du code qui fonctionne manifestement, juste pour le faire valider par le forum. Donc, je suis condamné à guetter ça et là et au détour d'un sujet lambda, ce qui peut corriger les mauvaises pratiques que j'adopte à "l'insu de mon plein gré"

Bien que ceci soit une maigre consolation, je dois dire qu'il y a une certaine délectation à relire un vieux code et à pouvoir modestement l'optimiser.

T'est-il déjà arrivé d'avoir (au moins) une mauvaise pratique ?

(je voulais épargner le forum de mes états d'âme, c'est raté)

Msgbox - détecter sa fermeture par clic sur croix [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager