Discussion :

[RussellD]

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

[tototiti2008]

Bonjour RusselID,

un truc comme ça, je pense :

Code :

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

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

[RussellD]

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?

[RussellD]

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

Code :

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

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