Macro, mettre fin avec mot clé

Fermé
camille059131 - 26 avril 2010 à 15:10
Bonjour voilà ma macro, seulement je ne sais aucunement comment y mettre fin?
Je voudrais qu'elle tourne tant que je ne lui dis pas le mot "FIN" par exemple! Avez vous une idée??


Sub demande()
'
' fiche_prêt Macro
' Macro enregistrée le 05/02/2010 par lpmo007
'

'
Application.Range("C6").Select
DY = Application.InputBox("Date d'aujoud'hui", "saisie date", , , , , , 3)
ActiveCell.Value = DY
ActiveCell.Offset(6, 0).Activate
DY = Application.InputBox("Date de livraison?", "saisie date", , , , , , 3)
ActiveCell.Value = DY
ActiveCell.Offset(3, 0).Activate
DY = Application.InputBox("quelle quantité souhaitez vous commander?", "quantité commandée", , , , , , 3)
ActiveCell.Value = DY
ActiveCell.Offset(0, 3).Activate
DY = Application.InputBox("Quantité en stock actuelle?", "quantité en stock actuelle", , , , , , 3)
ActiveCell.Value = DY