Somme de chiffres aléatoires

Bonjour !

Dans un premier temps je vous présente mon travail ! J'ai fait un calcul de nombre aléatoire basé sur des jets de dés.

'En B2 j'ai la formule suivante

=ENT(ALEA()*10+1)

'pour un dé 10 faces par exemple

'Ensuite j'ai crée plusieurs bouton dont un comme suit avec la fonction suivante :

Private Sub CommandButton6_Click()

Compt = 0

X = InputBox("Saisir nombre de dés", "LANCER", "")

For n = 1 To X

Feuil1.Calculate

If Feuil1.Cells(1, 2) > 6 Then Compt = Compt + 1

Next n

Feuil1.Cells(1, 6) = Compt

End Sub

'Cela me donne donc le nombre de dés qui obtiennent un résultat supérieur à 5.

Mais je souhaiterais aussi que cela me donne la somme de l'ensemble des dés. Par exemple, si je choisi de lancer 10 dés (soit X=10), je voudrais qu'apparaisse dans une cellule par exemple en (1, 7), la somme du résultat de chacun des dix lancés de dés.

Merci de m'éclairer !!!

Bonsoir,

Modifier comme suit :

Private Sub CommandButton6_Click()

Compt = 0

X = InputBox("Saisir nombre de dés", "LANCER", "")

For n = 1 To X

Feuil1.Calculate

If Feuil1.Cells(1, 2) > 6 Then Compt = Compt + 1

mem = mem + Feuil1.Cells(1, 2)

Next n

Feuil1.Cells(1, 6) = Compt

Feuil1.Cells(1, 7) = mem

End Sub

A+

Super, un grand merci à toi !!!

Une petite question me vient pour affiner ma démarche.

Si je souhaite avoir en plus dans une cellule la somme des jets de dés uniquement supérieur à 6 comme noté dans la formule...

If Feuil1.Cells(1, 2) > 6 Then Compt = Compt + 1

Je n'ai rien changé à cela ! C'est toujours la :

Feuil1.Cells(1, 6) = Compt

qui se charge de l'affichage.

A+

Ce que je voulais dire est que la formule compt me donne le nombre de jets de dés "ici" supérieur à 6 et juste le nombre. C'est juste un compteur...

If Feuil1.Cells(1, 2) > 6 Then Compt = Compt + 1

La formule que tu as trouvé donne la somme totale du lancé de tous les dés choisis (X)

mem = mem + Feuil1.Cells(1, 2)

Et je souhaiterais avoir aussi la somme totale des dés de ma première formule. A savoir la somme des dés supérieur à 6...

Exemple : Si je choisis de lancer 10 fois les dés (à l'aide de la boite de dialogue X = InputBox("Saisir nombre de dés", "LANCER", ""). Et qu'il ressorte de ma première formule 3 résultats supérieur à 6. Je voudrais avoir la somme de ces 3 dés.

Bonjour,

Comme je le disais je n'ai rien changé à ta formule :

C'est pour cela que Comp ne compte que le nombre de jets > 6

Si tu veux la somme des jets >6 il faut rajouter une ligne :

If Feuil1.Cells(1, 2) > 6 Then memsup = memsup + Feuil1.Cells(1, 2)

et à la fin

Feuil1.Cells(1, 8 ) = memsup

Je récapitule :

Private Sub CommandButton6_Click()
X = InputBox("Saisir nombre de dés", "LANCER", "")
For n = 1 To X
Feuil1.Calculate
If Feuil1.Cells(1, 2) > 6 Then Compt = Compt + 1
If Feuil1.Cells(1, 2) > 6 Then memsup = memsup + Feuil1.Cells(1, 2)
mem = mem + Feuil1.Cells(1, 2)
Next n
Feuil1.Cells(1, 6) = Compt
Feuil1.Cells(1, 7) = mem
Feuil1.Cells(1, 8) = memsup
End Sub

A+

Encore merci c'est parfaitement ça !!!