Heure aléatoire entre deux heures fixes

brizard · 24 Janvier 2013

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 · 25 Janvier 2013

Re : Heure aléatoire entre deux heures fixes

Bonsoir,

Ci-joint un exemple à adapter.

Code:

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 · 25 Janvier 2013

Re : Heure aléatoire entre deux heures fixes

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

Heure aléatoire entre deux heures fixes

brizard

XLDnaute Nouveau

Gareth

XLDnaute Impliqué

brizard

XLDnaute Nouveau

Discussions similaires