lancé de dé mais valeurs à décimales, je souhaite des entiers

[tweedi]

Bonsoir à toutes et à tous!

Je bricole un peu et vient de découvrir la fonction rnd.

Je souhaite réaliser un lancer de dé, ca fonctionne bien mais les valeurs ne sont pas des nombres entiers:

Sub random_myself()
Dim i As Integer

Randomize Timer

For i = 1 To 500
ActiveSheet.Cells(i, 1) = Int(5 + 1) * Rnd + 1
Next i

End Sub

Pouvez-vous m'aider ?

Bonne soirée et merci!

 

[Victor21]

Re : lancé de dé mais valeurs à décimales, je souhaite des entiers

Bonsoir, tweedi

F1 nous dit :

La fonction Rnd renvoie une valeur inférieure à 1 mais supérieure ou égale à zéro.

Rien d'étonnant donc que votre formule renvoie un nombre décimal

Essayez plutôt :

ActiveSheet.Cells(i, 1) = Int((5 + 1) * Rnd + 1)

ou :

ActiveSheet.Cells(i, 1) = Int(5 * Rnd) + 1

 

[Modeste geedee]

Re : lancé de dé mais valeurs à décimales, je souhaite des entiers

Bonsour®

prendre la partie entière d'un nombre décimal compris entre 0 et 6(exclus)
et ajouter 1

ActiveSheet.Cells(i, 1) = 1+Int(Rnd *6)

 

[tweedi]

Re : lancé de dé mais valeurs à décimales, je souhaite des entiers

Merci à vous deux pour vos réponses ! ca fonctionne !

En revanche modeste gee dee je pense qu'il faut mettre 5 * rnd et pas 6 sinon j'ai des 7 qui sortent

Bonne soirée, je vais essayer de faire un graph avec ca maintenant et voir si ca suit une loi normale avec des milliers d'itérations

 

[Staple1600]

Re : lancé de dé mais valeurs à décimales, je souhaite des entiers

Bonsoir à tous


Sinon comme ceci fonctionnait avec Excel 97, ça devrait "roller avec XL 2010
NB: Le graph est inclu.

PS: =ENT(ALEA()*6)+1 ne sort pas de 7 chez moi, je pense que c'est pareil avec le VBA de Modeste

PS: Merci à J. Walkenbach pour ceci et pour tout ce j'ai pu apprendre sur Excel grâce à lui

 

[Modeste geedee]

Re : lancé de dé mais valeurs à décimales, je souhaite des entiers

Bonsour®

En revanche je pense qu'il faut mettre 5 * rnd et pas 6 sinon j'ai des 7 qui sortent

je panse, donc j'essuie...
en prenant la partie entière d'un décimal inférieur à 6 : on n'obtient au max que la valeur 5, et même en ajoutant 1 cela ne fera jamais 7 ...

 

[Modeste geedee]

Re : lancé de dé mais valeurs à décimales, je souhaite des entiers

bonsour®prendre la partie entière d'un nombre décimal compris entre 0 et 6(exclus)
et ajouter 1

 

[tweedi]

Re : lancé de dé mais valeurs à décimales, je souhaite des entiers

Ca fonctionne parfaitement merci !

Vous avez raison c'est moi qui me suis planté, j'avais fait (6+1) * rnd

Je retiendrai pour la prochaine fois, (Ubound - Lbound + 1 * rnd) +1

Merci !