changement sub fonct

T

Tom

Guest
<HTML>Bonjour,

j'aimerais changer cette macro en fonction avec comme argument EndDate qui est une date dans une cellule. La fonction devrait renvoyer la valeur y dans la cellule qui appelle la fonction


Merci



Sub calc()

y = 0
x = Date
MsgBox (x)
z = EndDate
MsgBox (z)


While x < z

x = x + 1
y = y + 1

Wend
MsgBox (y)


End Sub</HTML>
 

Discussions similaires

Réponses
12
Affichages
507

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T