Temps aléatoire
Bonjour à tous,
J'essaye de créer un temps aléatoire en VBA.
Je souhaite obtenir un temps entre 10 et 8 minutes (8 ,9 ou 10)
J'ai essayé avec ce code mais ca ne fonctionne pas :/
Sub test()
Dim Var1 As Date
Dim Var2 As Date
Dim Var3 As Date
Randomize
Var1 = TimeSerial(0, 8, 0) * 1000
Var2 = TimeSerial(0, 10, 0) * 1000
Var3 = Int(Var1 + Rnd * (Var2 - Var1 + 1)) / 1000
MsgBox Format(Var3, "MM:SS")
End Sub
Est-ce que quelqu'un pourrait m'aider et m'expliquer pourquoi ?
Est-il possible de faire en sorte que les secondes restent à 0 pour avoir comme resultat 08:00, 09:00 ou 10:00 ?
Merci à tous pour votre aide.
Bonjour,
Une proposition ?
Dim dtm As Double
dtm = WorksheetFunction.RandBetween(8, 10)
MsgBox Format(dtm / 24 / 60, "mm:ss;@")Formule Excel équivalente :
=ALEA.ENTRE.BORNES(8;10)/24/60bonsoir, un temps aléatoire entre 00:08:00 et 00:09:59 pour le premier ou 00:8:00 - 00:10:00 pur le 2ième
alea = TimeSerial(0, WorksheetFunction.RandBetween(8, 9), WorksheetFunction.RandBetween(0, 59))
ou
alea = TimeSerial(0, 0, WorksheetFunction.RandBetween(480, 600))Super merci beaucoup pour ces solutions et cette réactivité :) :) :)