RND me rend fou!

[Robert]

Bonjour le forum,
Je rend l’âme car ça Randomize pas alors je relance les dés et je lance un appel …
En voulant recréer sur Excel un jeu de dés génial que des collègues m’ont appris, je bute sur le problème suivant : J’ai très très souvent la même série de cinq dés qui sort. J’ai utilisé la fonction donnée dans l’aide VBA mais RND me rend fou…

Range("B2:F2").Select
For Each cel In Selection
cel.Value = Int((6 * Rnd) + 1)
Next cel

Je me retrouve 8 fois sur 10 avec la même série : 5/4/2/1/5
Oui je sais, un jeu ça fait pas très sérieux… Mais, il y a-t-il parmi vous un as des casinos qui puisse m’aider ?
Merci à tous,

Robert

 

[michel]

bonjour Robert

tu peux essayer

Range("B2:F2").Select
For Each cel In Selection
Randomize 'Initialisation générateur de nombres aléatoires
cel.Value = Int((6 * Rnd) + 1)
Next cel

bon apres midi
michel

 

[Ti]

en début de macros, ajoute Randomize, sinon Excel démarrera toujours sur la même série de valeurs aléatoires.

 

[Robert]

Salut Michel, Salut Ti, Salut le forum,

Vous mériteriez un procès tous les deux ! Quand on détient pareille information c'est scandaleux de ne pas l'afficher dans la presse, à la radio, à la télé ! Que sais-je ?.... Heu ! Soyons sérieux...

Merci, Merci, vous êtes trop bons !!! Vous sauvez in-extremis un suicide à l'eau-de-vie.

À plus,

Robert