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

Victor21

XLDnaute Barbatruc

Supporter XLD

• 11 Mars 2014

• #2

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.

Cliquez pour agrandir...

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

Essayez plutôt :

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

Cliquez pour agrandir...

ou :

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

Cliquez pour agrandir...

 

Dernière édition: 11 Mars 2014

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 11 Mars 2014

• #3

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)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

T

tweedi

Guest

• 13 Mars 2014

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Mars 2014

• #5

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 😉

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 13 Mars 2014

• #6

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

Bonsour®

tweedi à dit:

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

Cliquez pour agrandir...

😕 😉

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 ...

 

Pièces jointes

• des dés.xlsm

  41.1 KB · Affichages: 36
• Capture.jpg

  36 KB · Affichages: 36
• Capture.jpg

  36 KB · Affichages: 40

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 14 Mars 2014

• #7

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

 

Vote positif 0 Vote négatif

T

tweedi

Guest

• 15 Mars 2014

• #8

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 !

 

Vote positif 0 Vote négatif