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>
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>