Combinaison possible

Bonjour,

Je souhaiterais connaitre toutes les combinaisons possible dans ce cadre:

• j'ai 4 parmètres que j'étudie(a,b,c et d)
• chacun de ces 4 parmètres peuvent avoir comme valeur 1 3 ou 4
• Je calcule ensuite le score total en faisant a*b*c*d.

Je souahiterais connaitre toutes les scores totaux possibles?

Le doc excel explicite mon cas.

Un grand merci pour votre aide!

Bien à vous

Bnejamin

Bonsoir,

un essai :

Sub LouReeD()
    Dim Tablo(2), Temp_Somme, a, b, c, d, Ligne As Long
    Tablo(0) = 1
    Tablo(1) = 3
    Tablo(2) = 4
    Temp_Somme = 0
    Ligne = 1
    For a = 0 To 2
        For b = 0 To 2
            For c = 0 To 2
                For d = 0 To 2
                    Temp_Somme = Tablo(a) + Tablo(b) + Tablo(c) + Tablo(d)
                    ActiveSheet.Range("G" & Ligne).Value = Temp_Somme
                    Ligne = Ligne + 1
                    Temp_Somme = 0
                Next d
            Next c
        Next b
    Next a
    ' suppression des doublons
    Range("G1:G81").Select
    ActiveSheet.Range("$G$1:$G$81").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

à l'issue du code les doublons sont retirés, il en reste douze, sinon 81...

@ bientôt

LouReeD

Bonsoir Benben1801, LouReed,

@LouReed: il veut le produit, pas la somme

Peut-être ainsi alors ?

Sub LouReeD()
    Dim Tablo(2), Temp_Produit, a, b, c, d, Ligne As Long
    Tablo(0) = 1
    Tablo(1) = 3
    Tablo(2) = 4
    Temp_Produit = 0
    Ligne = 1
    For a = 0 To 2
        For b = 0 To 2
            For c = 0 To 2
                For d = 0 To 2
                    Temp_Produit = Tablo(a) * Tablo(b) * Tablo(c) * Tablo(d)
                    ActiveSheet.Range("G" & Ligne).Value = Temp_Produit
                    Ligne = Ligne + 1
                    Temp_Produit = 0
                Next d
            Next c
        Next b
    Next a
    ' suppression des doublons
    Range("G1:G81").Select
    ActiveSheet.Range("$G$1:$G$81").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

En tout cas bravo pour ton code je le garde sous le coude

Cordialement,

Bonsoir Xor (car pour moi il n'y en a qu'un et c'est lui ! )

il veut le produit, pas la somme

Ceux pour lesquels je n'ai pas de solution, alors là je prend le temps de les lire et relire en attendant l'arrivée d'une réponse !

En tout cas bravo pour ton code

je le garde sous le coude

Quant au résultats je pense qu'il en est de même, soit 81 combinaison et 12 solution non redondantes, non ? Vu que la multiplication est à l'addition ce que la division est à la soustraction, non ?

@ bientôt

LouReeD