Sub tirage()
Dim Hasard As double, Mini As double, Maxi As double
Randomize
Maxi = 1
Mini = 0
Hasard = Rnd(Timer) * Maxi + Mini
MsgBox Hasard
End Sub
Sub tirage()
Dim Hasard As Double, Mini As Double, Maxi As Double
Randomize
Maxi = 1
Mini = 0
Hasard = Rnd(Timer) * Maxi + Mini
Range("A1") = Hasard
End Sub
Sub tirage()
Dim Hasard As Double, Mini As Double, Maxi As Double
Randomize
Maxi = 1
Mini = 0
Hasard = Rnd(Timer) * Maxi + Mini
Range("A1") = Hasard
Randomize
Maxi = 1
Mini = 0
Hasard2 = Rnd(Timer) * Maxi + Mini
Range("A2") = Hasard2
Randomize
Maxi = 1
Mini = 0
Hasard3 = Rnd(Timer) * Maxi + Mini
Range("A3") = Hasard3
End Sub
Sub tirage()
Dim Hasard As Double, Mini As Double, Maxi As Double
Dim Tourne As Long
Randomize
Maxi = 1
Mini = 0
For Tourne = 0 To 2
Hasard = Rnd(Timer) * Maxi + Mini
Range("A1").Offset(Tourne,0) = Hasard
Next
End Sub