USerform lance macro si on clique sur la croix.

[MJ13]

Bonjour à tous

Est-il ppossible de lancer une macro si on clique sur la croix situé en haut à droite de l'userform (pour le fermer)?


Merci pour vos solutions.

 

[Staple1600]

Re : USerform lance macro si on clique sur la croix.

Bonjour

Private Sub UserForm_Terminate()
macroz
End Sub

sub macroz()
MsgBox "toto"
end sub

 

[MJ13]

Re : USerform lance macro si on clique sur la croix.

Bonjouir Staple

Merci beaucoup

Je le connaissais pas cet évènement.

Ah oui en effet il existe, je l'avais même pas vu, pourtant j'en avais testé.

 

[d.ryba]

Re : USerform lance macro si on clique sur la croix.

Bonjour

Private Sub UserForm_Terminate()
macroz
End Sub

sub macroz()
MsgBox "toto"
end sub

Bonjour,

moi j'utilise "Query_Close" avec une macro MsgBox, pour demander à l'utilisateur une confirmation pour quitter :

Voila mon code que j'utilise, et qui fonctione parfaitement :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Dim Reponse As VbMsgBoxResult
    If CloseMode = 0 Then
        Reponse = MsgBox("Etes-vous sûr de vouloir fermer l'application en cours ?", _
   vbYesNo + vbQuestion, "Annuler l'application en cours ?")
        If Reponse = vbNo Then
            Cancel = True
        End If
    End If
End Sub

Mais il y a-t-il une différence, entre "teminate" et "query_Close" ?

 

[MJ13]

Re : USerform lance macro si on clique sur la croix.

Bonjour d.ryba

Merci aussi pour cette solution qui peut servir (comme cela le code est déjà tout fait).

Sinon, j'ai l'impression que le query_close s'exécute avant le terminate.

 

[PascalXLD]

Re : USerform lance macro si on clique sur la croix.

Bonjour

L'avantage avec le query_close tu peux verifier le mode de fermeture
si l'usf est fermé par la crois ou si par exemple il est fermé par du code