Fermeture UserForm

[patrice]

Bonjour au forum,
Dans l'utilisation d'un UserForm, la fenètre comporte une X en haut à droite pour fermer. Peux t on faire une action sur le click de cette X : type si click X alors.
Merci d'avance et merci au forum pour toutes les réponses données.
A+

 

[wally]

Bonsoir patrice et le forum,

Essaye ceci :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = 0 Then
MsgBox "L'USF a été fermé en cliquant sur la croix !"
End If

End Sub


Sts

wally

 

[JOjo]

Salut Waly et forum,

Estèil possible d'intercepter le x afin de provoquer une autre action telle que userform1.hide ?

Merci.

 

[@+Thierry]

Salut JOjo,

Tu peux faire ceci, mais attention le UserForm reste chargé en mémoire avec la méthode Hide...

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
Me.Hide
End Sub

Bonne Soirée et Bon Week End
@+Thierry