Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

RND me rend fou!

R

Robert

Guest
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
 
M

michel

Guest
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
 
R

Robert

Guest
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
 

Discussions similaires

L
Réponses
6
Affichages
894
Lucko
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…