Tirage aleatoire entre 3 valeurs

[Tiobi]

Bonjour,

Je cherche à faire un tirage aléatoire entre les 3 valeurs suivantes:

0.5
0.75
1

Avez-vous une piste pour la formule en VBA ?

Merci.

 

[Pierrot93]

Re : Tirage aleatoire entre 3 valeurs

Bonjour Tiobi

essaye peut être ainsi :

Randomize
MsgBox Choose(Int((3 * Rnd) + 1), 0.5, 0.75, 1)

bonne journée
@+

 

[Tiobi]

Re : Tirage aleatoire entre 3 valeurs

Merci beaucoup Pierrot93.

C'est nickel.

Bonne journée.

 

[pierrejean]

Re : Tirage aleatoire entre 3 valeurs

Bonjour Tiobi

Un essai

Edit: Salut Pierrot

 

[ROGER2327]

Re : Tirage aleatoire entre 3 valeurs

Bonjour à tous

Une autre proposition :

[COLOR="DarkSlateGray"]=1-ENT(3*ALEA())/4[/COLOR]

en formule ou :

[COLOR="DarkSlateGray"]Function tirage()
   Application.Volatile
   Randomize
   tirage = 1 - Int(3 * Rnd) / 4
End Function[/COLOR]

en VB.​

Bonne journée !
ROGER2327