Heure aléatoire entre deux heures fixes

[brizard]

Bonjour tout le monde.
Voilà mon problème. J'arrive bien à générer un nombre aléatoire entre deux bornes avec du code vba, mais je n'arrive pas le faire avec des heures. Exemple: avoir une heure aléatoire entre 6:45 et 9:50. Même si je transforme 6:45 et 9:50 en chiffre, ça ne fonctionne pas.
Je le voudrai en code vba pour le mettre dans un UserForm.
Merci d'avance pour le coup de main.

 

[Gareth]

Re : Heure aléatoire entre deux heures fixes

Bonsoir,

Ci-joint un exemple à adapter.

Sub test()
Var1 = TimeSerial(6, 45, 0) * 1000
Var2 = TimeSerial(9, 50, 0) * 1000
Var3 = Int((Var2 - Var1 + 1) * Rnd + Var1) / 1000
MsgBox Format(Var3, "hh:mm")
End Sub

 

[brizard]

Re : Heure aléatoire entre deux heures fixes

Merci beaucoup pour cette aide, cela fonctionne impeccablement.
Cordialement.
Brizard