Agir sur la petite croix rouge en VBA

Bonjour à tous,

voila simple question : est il possible d'agir sur la petite croix rouge (fermer) d'un UserForm ? C'est à dire y'a t-il la possibilité de de demander à l'utilisateur "Voulez vous vraiment quitter ?" lorsqu'il clique sur cette croix ?

Merci pour vos réponses,

bonne journée,

Cordialement.

Bonjour

Place ce code dans ton USERFORM

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim a As Integer
a = MsgBox("voulez-vous quitter ?", vbYesNo + vbQuestion + vbDefaultButton2, "Quitter")
If a <> vbYes Then Cancel = CloseMode = 0
End Sub

Autre solution sur ce fil --> desactiver-le-x-d-un-userform

Si ok, clique sur le v vert à coté du bouton EDITER lors de ta réponse pour cloturer le fil

Cordialement

Super merci, je ne connaissais pas la manip !

Bonne aprem midi !

bonjour

je ne sais pas si il est d'habitude sur ce forum de répondre après la clôture d'un message, mais je me permet

on peut l’écrire en une seule ligne :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = MsgBox("voulez-vous quitter ?", vbYesNo + vbQuestion + vbDefaultButton2, "Quitter") = vbNo
End Sub

salut dan, content de te croiser

a plus

Rechercher des sujets similaires à "agir petite croix rouge vba"