Problème macro avec heure aléatoire entre deux heures fixes

[brizard]

Bonjour.
j'utilise une macro pour générer une heure aléatoire entre une heure de départ et une heure de fin.
Le problème est, que c'est toujours la même heure qui sort du tirage aléatoire.
Ci-joint le code.
Var1 = TimeSerial(6, 45, 0) * 1000
Var2 = TimeSerial(9, 50, 0) * 1000
Var3 = Int((Var2 - Var1 + 1) * Rnd + Var1) / 1000

ActiveCell.Offset(0, 1).Value = Var3
ActiveCell.Offset(0, 1).NumberFormat = "h:mm"

Un petit coup de main serait le bien venu.
Cordialement.

 

[Pierrot93]

Re : Problème macro avec heure aléatoire entre deux heures fixes

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Dim var1 As Single, var2 As Single, var3 As Single
Randomize
var1 = TimeSerial(6, 45, 0)
var2 = TimeSerial(9, 50, 0)
var3 = (var2 - var1) * Rnd + var1
Cells(1, 1) = CDate(var3)
End Sub

bonne journée
@+

 

[brizard]

Re : Problème macro avec heure aléatoire entre deux heures fixes

Merci, pour ta réponse, excellent, cela fonctionne.
Cordialement.