Nombre d'arrangements pour faire une somme

Bonjour à tous,

J'étudie actuellement la somme que fait un lancer simultané de 6 dés à 6 faces.

Dans un but statistique, j'aurais besoin de connaitre la liste de tous les arrangements possibles quand la somme des 6 dés est égale à 21.

Par exemple:

1+2+3+4+5+6=21

1+1+4+4+5+6=21

1+1+3+5+5+6=21

Etc.

Je le fais à la main mais je suis sur que je dois oublier des combinaisons...

Merci par avance pour votre aide!

Bonne journée

Jérôme

Bonsoir jerosan,

Sur le net, j'ai trouvé ceci :

Dans les cellules A1 à F1, tu places un 1

En A2, , cette formule

 =MOD(LIGNE()-1;6)+1

En B2, cette autre formule

=SI(SOMME($A1:A1)=(COLONNE()-1)*6;MOD(B1;6)+1;B1)

que tu tires à droite jusqu'à la colonne F.

Pour finir, tu tires les cellules de A2 à F2 jusqu'à atteindre la ligne 666666

Tu obtiendras ainsi toutes les combinaisons souhaitées.

En colonne G, tu fais la somme de chaque ligne.

Reste à filtrer celle dont la somme est égale à 21

Concernant le nombre de combinaisons à ressortir, je laisse les matheux peaufiner

les explications

En espérant ne pas m'être planté dans la réponse

klin89

Re,

Merci Klin89 pour ta réponse, mais je n'arrive pas à faire fonctionner tes formules...

Je dois mal m'y prendre, mais quand je copie colle ce que tu as écris, j'ai des messages d'erreur (j'ai pensé à rajouter les ; dans tes formules).

Pourrais-tu stp les mettre directement dans une feuille?

Merci!!

Jérôme

Re,

Merci pour le correctif

J'ai donc essayé, les formules fonctionnent mais ça ne va pas, les sommes sont quasiment toutes identiques... Je dois mal m'y prendre.

Autant faire "alea entre borne" sur chaque dé, tirer jusqu'en bas et faire un trie sur la somme par la suite sinon?

N'y -t-il pas une solution par macro comme on le fait pour dénombrer les arrangements de combinaison?

Merci!

bonsoir,

solution via une macro

Sub aargh()
    For d1 = 1 To 6
        For d2 = 1 To 6
            For d3 = 1 To 6
                For d4 = 1 To 6
                    For d5 = 1 To 6
                        For d6 = 1 To 6
                            If d1 + d2 + d3 + d4 + d5 + d6 = 21 Then
                                s = s + 1
                                Cells(s, 1) = d1 & d2 & d3 & d4 & d5 & d6
                            End If
                        Next d6
                    Next d5
                Next d4
            Next d3
        Next d2
    Next d1
End Sub

Bonjour,

Merci infiniment!!

Au top!!

Bonne journée et merci à tous pour votre aide

Jérôme