débutante : mettre fin a ma macro?

Question

Bonjour voilà ma macro, seulement je ne sais aucunement comment y mettre fin?
Pouvez vous m'aider? J'ai appris de cette façon il y a quelque temps mais pour mettre fin a la macro je ne sais vraiment plus! Merci d'avance



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

Configuration: Linux Suse / Firefox 3.5.4

Utilisateur anonyme · Answer

Salut,

je crois que tu dois ajouter à la fin la ligne "End Sub".

Neliel · Answer

Bonjour,


Grâceà l'instruction:  End Sub

Neliel · Answer

Tu fais:

While(DY<>"FIN")

.
.
.

Wend

Cependant, cela fonctionnera que si tu met FIN dans le dernier inputbox de ton programme et pas dans les autres, si tu veux que ça fonctionne pour les autres, il faudrait que soit tu stocke les différents inputbox dans une variables différentes et que tu rajoute les variables dans le while:

while(DY<>"FIN" AND DA<>"FIN".....)

soit que tu ajoute ce code après chaque inputbox:

if DY="FIN" Then Exit While

Débutante : mettre fin a ma macro?

3 réponses

Discussions similaires

Newsletters