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

brizard · 22 Novembre 2013

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 · 22 Novembre 2013

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

Bonjour,

regarde peut être ceci :

Code:

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 · 22 Novembre 2013

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

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

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

brizard

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

brizard

XLDnaute Nouveau

Discussions similaires