Bonjour voici mon problème,
Je souhaite généré autant de combinaison possible avec 22 entités qui peuvent chacune comporter 3 variables.
Autant dire
ABC
ABC
ABC
ABC... etc 22 fois.
Je souhaiterai obtenir toute les combinaisons uniques.
voila la macro que j'utilise, cela marche avec 10 entités, mais impossible avec 22. (Mon pc plante)
Merci, Cdt.
Sub combi()
Columns("D").Clear
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
For o = 1 To 3
For p = 1 To 3
For q = 1 To 3
For r = 1 To 3
For s = 1 To 3
For t = 1 To 3
For u = 1 To 3
For v = 1 To 3
For w = 1 To 3
For x = 1 To 3
For y = 1 To 3
For z = 1 To 3
For a = 1 To 3
For b = 1 To 3
For c = 1 To 3
For d = 1 To 3
[D65536].End(xlUp).Offset(1, 0).Value = Cells(1, i).Value & _
Cells(2, j).Value & Cells(3, k).Value & Cells(4, l).Value & _
Cells(5, m).Value & Cells(6, n).Value & Cells(7, o).Value & _
Cells(8, p).Value & Cells(9, q).Value & Cells(10, r).Value & _
Cells(11, s).Value & Cells(12, t).Value & Cells(13, u).Value & _
Cells(14, v).Value & Cells(15, w).Value & Cells(16, x).Value & _
Cells(17, y).Value & Cells(18, z).Value & Cells(19, a).Value & _
Cells(20, b).Value & Cells(21, c).Value & Cells(22, d)
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Je souhaite généré autant de combinaison possible avec 22 entités qui peuvent chacune comporter 3 variables.
Autant dire
ABC
ABC
ABC
ABC... etc 22 fois.
Je souhaiterai obtenir toute les combinaisons uniques.
voila la macro que j'utilise, cela marche avec 10 entités, mais impossible avec 22. (Mon pc plante)
Merci, Cdt.
Sub combi()
Columns("D").Clear
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
For o = 1 To 3
For p = 1 To 3
For q = 1 To 3
For r = 1 To 3
For s = 1 To 3
For t = 1 To 3
For u = 1 To 3
For v = 1 To 3
For w = 1 To 3
For x = 1 To 3
For y = 1 To 3
For z = 1 To 3
For a = 1 To 3
For b = 1 To 3
For c = 1 To 3
For d = 1 To 3
[D65536].End(xlUp).Offset(1, 0).Value = Cells(1, i).Value & _
Cells(2, j).Value & Cells(3, k).Value & Cells(4, l).Value & _
Cells(5, m).Value & Cells(6, n).Value & Cells(7, o).Value & _
Cells(8, p).Value & Cells(9, q).Value & Cells(10, r).Value & _
Cells(11, s).Value & Cells(12, t).Value & Cells(13, u).Value & _
Cells(14, v).Value & Cells(15, w).Value & Cells(16, x).Value & _
Cells(17, y).Value & Cells(18, z).Value & Cells(19, a).Value & _
Cells(20, b).Value & Cells(21, c).Value & Cells(22, d)
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub