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

pierrejean

XLDnaute Barbatruc

• 21 Décembre 2006

• #2

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

 

Vote positif 0 Vote négatif

F

Fab117

XLDnaute Impliqué

• 21 Décembre 2006

• #3

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

 

Pièces jointes

• Essai 04.zip

  15.3 KB · Affichages: 37

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Décembre 2006

• #4

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

 

Vote positif 0 Vote négatif

F

Fab117

XLDnaute Impliqué

• 21 Décembre 2006

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Décembre 2006

• #6

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

 

Vote positif 0 Vote négatif

F

Fab117

XLDnaute Impliqué

• 21 Décembre 2006

• #7

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

Super, comme toujours ça fonctionne parfaitement.
Merci.

Fab

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Décembre 2006

• #8

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)

 

Pièces jointes

• Essai 04.xls

  33.5 KB · Affichages: 83

Vote positif 0 Vote négatif