Message après click sur croix rouge d'un UserForm

Bonjour à tous,

je crois que le titre de mon message est assez explicite ^^.
J'aimerais savoir comment faire apparaitre un message du type "Etes-vous sûr de vouloir quitter" avec deux boutons "Oui" et "Non" lorsque l'on clique sur la croix rouge en haut à doite d'une boîte de dialogue (UserForm).

Merci d'avance pour vos réponses,

Cordialement

Bonjour RusselID,

un truc comme ça, je pense :

Code:

---

1 2 3 4 5

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim rep as Long rep = MsgBox(prompt:="Etes-vous sûr de vouloir quitter ?", Title:="On s'en va ?", Buttons:=vbYesNo) If rep <> vbYes Then Cancel = True End Sub

---

à mettre dans le code de l'Userform

Merci, cela fonctionne, mais pas uniquement avec la croix rouge.
J'ai sur mon userForm un bouton Suivant qui ferme cet userform et passe à un autre. Et lorsque l'on clique dessus, le message d'erreur apparait aussi.
Y'aurait-il une fonction propre à la fermeture d'un UserForm uniquement par la croix rouge?

J'ai trouvé en fait ^^
Je met le code si quelqu'un peut à l'avenir en avoir besoin aussi :

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim rep As Long If CloseMode = 0 Then rep = MsgBox(prompt:="Etes-vous sûr de vouloir quitter ?", Title:="", Buttons:=vbYesNo) If rep <> vbYes Then Cancel = True End If End Sub

---

Merci encore pour le coup de main tototiti2008, cordialement