Autres Modification dans ALEA

[ALEA()]

Bonjour, j'ai une de vos macros alea() dont je voudrais modifier la plage de restitution.

Randomize
Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 10
x = Int((30 * Rnd) + 1)
dico(x) = x
Wend

Ici, l'alea va de 1 à 30, je voudrais 10 nombres compris entre 40 et 69.

Merci de votre aide.

 

[sylvanu]

Boonjour Alea,

X=40+int (29*rnd)

Rnd allant de 0 à 1,vous aurez min=40 et max=40+29=69.

 

[ALEA()]

Bonjour Sylvanu, merci pour ton retour.

J'ai du modifier un peu (x par * et 29 par 30 car 69 n'était pas tiré)
x = 40 + Int(30 * Rnd)

Merci à toi et bonne journée

 

[sylvanu]

Exact la valeur 1 est exclue. Sorry.