Msgbox - détecter sa fermeture par clic sur croix

Bonjour,

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

Code:

---

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:

---

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

Bonjour,

Code:

---

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

---

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

Code:

---

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

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

hello,

Citation:

---

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

@ Thumb down

Citation:

---

Private Sub CommandButton1_Click()

---

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

Citation:

---

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

---

Citation:

---

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:

---

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!

@ l'ami calmant jp

Citation:

---

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 ;)

Salut

Citation:

---

Envoyé par jurassic pork

[...]

Code:

---

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

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:

---

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

---

Citation:

---

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.

Bonjour Pierre,

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

J'avais répondu ceci à Alain :

Citation:

---

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:

---

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

---

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:

---

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

---

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] :oops:

Tu avais dit :

Citation:

---

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é" :oops:

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é)