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.

23test.xlsx (8.91 Ko)

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

Tout a fait d'accord avec vous ! Je lis trop vite les messages pour lesquels je pense avoir une réponse !

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 pense honnêtement qu'il ne le mérite pas, et je suis sur qu'en attendant un peu un autre plus sophistiqué va arriver...

je le garde sous le coude

Le code je ne sais pas mais les boucles imbriquées oui cela peut vous servir pour une autre fois !

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

Rechercher des sujets similaires à "combinaison possible"