Bouton Quitter pour arreter une macro dans une Userform

[ronanm]

Bonjour bonjour,
J'ai un souci de finalité pour fermer une macro appelée dans une Userform

Le code suivant pour une macro :

pour le bouton de la Userform :

Private Sub CommandButton3_Click()
Var = True
Unload Me
End Sub

et dans la feuille

Public Var As Boolean
Sub impress()
UserForm3.Show
If Var = True Then Exit Sub
If Var = False Then
Application.Dialogs(xlDialogSaveAs).Show CStr(Feuil3.Range("T4").Value)
UserForm2.Show
If Var = True Then Exit Sub
If Var = False Then
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then ActiveWorkbook.PrintOut Copies:=1, Collate:=True
Exit Sub
End If
End If
End Sub

Mais dès que je veux l'appliquer à un "bouton de commande", le bouton "quitter" ne fonction plus et la macro continue. Que dois-je changer ?
Voici le code appliqué :

pour le bouton de la Userform (idem):

Private Sub CommandButton3_Click()
Var = True
Unload Me
End Sub

Public Var As Boolean

Private Sub CommandButton2_Click()
UserForm3.Show
If Var = True Then Exit Sub
If Var = False Then
Application.Dialogs(xlDialogSaveAs).Show CStr(Feuil3.Range("T4").Value)
UserForm2.Show
If Var = True Then Exit Sub
If Var = False Then
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then ActiveWorkbook.PrintOut Copies:=1, Collate:=True
Exit Sub
End If
End If
End Sub

Merci à vous.

 

[ronanm]

Re : Bouton Quitter pour arreter une macro dans une Userform

EUh, bah en fait j'ai trouvé une solution et cela simplifie tout !!!

pour le bouton :

Private Sub CommandButton3_Click()
Unload Me
End 
End Sub

Et dans la feuillle :

Private Sub CommandButton2_Click()
UserForm3.Show
Application.Dialogs(xlDialogSaveAs).Show CStr(Feuil3.Range("T4").Value)
UserForm2.Show
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub

Réponse finalement trouvée ici, désolé.

https://www.excel-downloads.com/threads/userform-configurer-le-bouton-annuler.135486/