Calculer combinaisons Somme

[Tex]

Bonjour,

Est-il possible en langage VBA de calculer toutes les combinaisons possibles en termes d'addition sans utiliser 2 fois le même chiffre dans la formule sur une sélection :

240
524
674
891
1460
1692

Exemple : 240+524; 240+674;240+524+674; 240+524+674+891+1460+1692;524+674 ...


Sub Macro1()
' Macro1 Macro
' Macro enregistrŽe le 9/10/2008 par Gruick
i = 15
For a = 1 To Cells(1, 1).End(xlDown).Row
For b = 1 To Cells(1, 2).End(xlDown).Row
For c = 1 To Cells(1, 3).End(xlDown).Row
Cells(i, 1) = Cells(a, 1)
Cells(i, 2) = Cells(b, 2)
Cells(i, 3) = Cells(c, 3)
i = i + 1
Next: Next: Next
End Sub

J'ai trouvé ce code qui me semble pas mal pour construire une macro

Cordialement

 

[CBernardT]

Re : Calculer combinaisons Somme

Bonjour Tex et le forum,

Effectivement, la macro c'est un peu ça !

Avec quelques modifications elle donne entière satisfaction.

 

[Tex]

Re : Calculer combinaisons Somme

Merci sir