Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
denis P
en utilisant l'événement UserForm_QueryClose.... exemple un Userform avec un CheckBox1 si le CheckBox1 est cocher le form ne se ferme pas si non il se ferme...
denis p. ************************* Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CheckBox1 Then Cancel = 1 End If
End Sub ********************
"titi" a écrit dans le message de news:424d10c6$0$21309$
Bonjour,
Je voudrais lancer une procédure si l'utilsateur clique sur la croix de la fenetre au lieu du n=bouton FERMER
Que dois je faire ? merci.
en utilisant l'événement UserForm_QueryClose....
exemple un Userform avec un CheckBox1
si le CheckBox1 est cocher le form ne se ferme pas si non il se ferme...
denis p.
*************************
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CheckBox1 Then
Cancel = 1
End If
End Sub
********************
"titi" <nopub@titi.Com> a écrit dans le message de
news:424d10c6$0$21309$626a14ce@news.free.fr...
Bonjour,
Je voudrais lancer une procédure si l'utilsateur clique sur la croix de la
fenetre au lieu du n=bouton FERMER
en utilisant l'événement UserForm_QueryClose.... exemple un Userform avec un CheckBox1 si le CheckBox1 est cocher le form ne se ferme pas si non il se ferme...
denis p. ************************* Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CheckBox1 Then Cancel = 1 End If
End Sub ********************
"titi" a écrit dans le message de news:424d10c6$0$21309$
Bonjour,
Je voudrais lancer une procédure si l'utilsateur clique sur la croix de la fenetre au lieu du n=bouton FERMER
Que dois je faire ? merci.
Jacques
Bonjour,
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then ... [ ta procédure ] ... endif End Sub