date = chiffre absolu

[Jim]

Bonjour à tous,

Je souhaiterais faire un outils de tirage au sort de date et d'heure où :

- on saisit une date et une heure de début,
- on saisit une date et une heure de fin,
- on clique sur un bouton

>> il y a une date et une heure qui sont choisi aléatoirement.

Je pense qu'il faut convertir la date et l'heure en chiffre absolu, non ?
Je sais qu'Excel peut convertir une date en un chiffre, ce qui permet de faire des statistiques ou autre...
Bon, en vrai je ne sais pas trop comment faire !!!

Merci d'avance de vos lumières !!
Jim

 

[Sven]

Tu peux essayer avec Cdbl(Date) qui convertit la date en nombre et ensuite utiliser la fonction Alea.entre.bornes pour déterminer le chiffre au hasard pour finalement convertir en date avec CDate(Chiffrealea)...
J'ai pas encore testé mais tiens-moi au courant de tes progrès.
Sven

 

[sousou]

Bonjour
Voici quelquechose qui peux te convenir, et qui utilise la fonction
rnd

Sub test()
datedeb = CDate(InputBox("date de début"))
datefin = CDate(InputBox("Date de fin"))
Randomize (datedeb)
For i = 1 To 10
MsgBox datefin & "* " & CDate((datefin - datedeb + 1) * Rnd + datedeb)
Next
End Sub

 

[Jim]

Re
merci sousou, c'est vraiment très simple et pratique.
Par contre, la message box ne disparait pas en cliquant sur OK.
Un remède ?
Jim

 

[Jim]

oups, c'est bon, j'ai trouvé, il faut remplcer
For i = 1 To 10
par
For i = 1 To 1
Merci en tout cas

 

[sousou]

La boucle for next n'estais là que pour l'exemple tu peux l'enlever complétement si tu souhaite une seule date