sortie d'une procédure

[Reeaz]

Bonjour à tous,

j'ai crée des inputs box ds une procédure, mais le bouton annuler ne me permet pas de quitter ma procédure.
Je sais pas d'ou ca vient, peut etre est ce parce que j'utilise bcoup de input box consécutives?
Voici une partie de mon code:

date1 = InputBox("Entrez la première Start Date ", "Start Date", Date)
'bouton d'annulation
If date1 = vbCancel Then Exit Sub
date2 = InputBox("Entrez la dernière Start Date ", "Dernière Start Date", Date)
If date2 = vbCancel Then Exit Sub
Reset = InputBox("Entrez le reset lag", "Reset Lag")
'If Reset = vbCancel Then Exit Sub
yf = InputBox("Entrez la fréquence des paiements_Si mensuel:entrez 31 ", "Fréquence")
If yf = vbCancel Then Exit Sub
Pay = InputBox(" Entrez la première payment date", "Payment Date", Date)


Je voudrais que dès qu'on appuie sur Annuler, que la macro s'arrête.
Si qqun a une idée, ce serait sympa.
Merci
Reeaz

 

[sousou]

Bonjour
Extrait de l'aide sur la fonction Inputbox:

Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("").

Alors...
If date1="" exit sub .....

 

[Mytå]

Salut Reeaz

Aide de InputBox :

Si l'utilisateur clique sur OK ou appuie sur ENTRÉE , la fonction InputBox renvoie le texte contenu dans la zone de texte. Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("").

Donc utilise ceci

date1 = InputBox("Entrez la première Start Date ", "Start Date", Date)
'bouton d'annulation
If date1 = "" Then Exit Sub

 

[Reeaz]

Merci, ca marche!!