Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

[Fab117]

Salut,
Comment fait-on s'il vous plait pour que la macro s'arrete (Exit Sub) si la personne clique sur le bouton Annuler d'une InputBox ?
Merci d'avance.

Fab

 

[pierrejean]

Re : Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

bonjour Fab117

if entree="" then
exit sub
else
'suite macro'
end if

 

[Fab117]

Re : Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

Bonjour Pierre Jean,
Si tu te rappelles de mon post d'hier, j'ai adapté ma macro en suivant tes conseils tout en gardant la compréhension de ce qui se passait (cela explique que je n'ai pas intégré tes derniers commentaires).
Il reste un problème, si la date est éloignée de plus de 10 jours par rapportà la date actuelle, ma condition ne fonctionne plus.

Je pense que le problème vient de :
DateDePreparation = CDate(Replace(DateDePreparation, ".", "/"))
'ailleurs, à quoi sert cette ligne ? A accepter les points à la place des / dans le format jj.mm.aaaa ?

Si tu as un moment, peux-tu s'il te plait y jeter un coup d'oeil.
Merci.

Fab

 

[pierrejean]

Re : Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

bonjour Fab

a premiere vue il y a erreur de fichier

 

[Fab117]

Re : Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

Erreur de fichiers ?
Je ne crois pas, il y a 2 fichiers :
Essai 04.xls qui contient la macro
et
Essai Fichier de destination.xls qui est la cible où la macro va recopier la valeur.

Fab

 

[pierrejean]

Re : Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

re

ok je n'avais vu que le fichier destination !!

pour le pb de controle par rapport a 10 j , ce n'est pas int qu'il faut utiliser mais abs
d'autre part le cDate est de trop

ligne corrigée:

If Abs(DateDePreparation - Date) > 10 Then

teste

je dois m'absenter et je n'ais pas le temps d'aller + loin

 

[Fab117]

Re : Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

Super, comme toujours ça fonctionne parfaitement.
Merci.

Fab

 

[pierrejean]

Re : Sortir de la macro en cliquant sur le bouton Annuler d'une InputBox

re

me voici de retour

veux-tu tester ceci (les tests c'est mon point faible ... euh entre autres)