Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

CommandButton CANCEL qui arrête une macro

O

Olivier

Guest
Bonjour à toute et à tous,

J'ai un tout petit problème que je n'arrive pas à résoudre.

J'ai crée un userform avec :
- des checkboxes
- un commandButton "OK"
- un commandButton "CANCEL"

Voici le code du UserForm

' ** Cancel Button **
Private Sub Cancel_Click()
Unload GSMCD_FrenchReport
End Sub
' ** OK Button **
Private Sub OK_Click()
GSMCD_FrenchReport.Hide
End Sub


Dans un module j'ai crée une macro qui s'occupe du reste avec notamment :
GSMCD_FrenchReport.Show 'Show UserFrom

+ des conditions en fonction des checkboxes cochées.

Quand je lance ma macro, le userform apparaît à l'écran, et la macro se lance lorsque je clique sur le button OK.

Malheureusement, il se passe exactement la même chose si je clique sur le button Cancel.

Je souhaiterai tout simplement que tout s'arrête lorsque je clique sur OK Button.
J'avais d'abord pensé mettre un label FIN: à la fin de ma macro.
et d'utiliser la commande Go To dans mon code du UserForm, mais ca ne marche pas.

Comment faire ?

D'avance un immense personne à la personne qui pourra m'aider.

Bonne journée et à bientôt,
Olivier
 
@

@+Thierry

Guest
Bonjour Olivier, le Forum

Sans faire d'essai, je te propose deux possibilités :

1) dans ton code Cancel_Click essaie l'instruction "End" mais je ne suis pas certain que çà stoppera la macro de lancement du UserForm puisque le Mode Modal lui rendra la main en fermeture...

2) plus compliqué mais qui devrait marcher... Tu déclares une Variable Boolean Publique... (en top d'un module standard) exemple :

Public ActionCancel as Boolean

Dans ta macro de base :

ActionCancel = False
GSMCD_FrenchReport.Show

Dans ton Code du UserForm Cancel_Click :

ActionCancel = True
Unload GSMCD_FrenchReport

Dans la suire de ta macro de Base :

If ActionCancel = True Then Exit Sub

Ce devrait passer sans problème...

Bon Appétit
@+Thierry
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…