macro combinaisons

[jyclain]

Bonjour,

Etant donnés 5 nombres sur la ligne A
1,2,3,4,5
comment obtenir par macro les dix combinaisons possibles de 3 nombres sur dix lignes successives à partir de la ligne C :

1,2,3
1,2,4
1,2,5
1,3,4
1,3,5
1,4,5
2,3,4
2,3,5
2,4,5
3,4,5

Chaque nombre est dans une cellule.

Merci

 

[Pierrot93]

Re : macro combinaisons

Bonjour jyclain

regarde le code ci dessous, à adapter à ton projet, si cela peut t'aider :

Option Explicit
Sub test()
Dim a As Byte, b As Byte, c As Byte, i As Byte
i = 3
For a = 1 To 5
    For b = a + 1 To 5
        For c = b + 1 To 5
            Cells(i, 1).Value = a
            Cells(i, 2).Value = b
            Cells(i, 3).Value = c
            i = i + 1
        Next c
    Next b
Next a
End Sub

bon dimanche.
@+

 

[Gorfael]

Re : macro combinaisons

Salut jyclain
Et les combinaisons restante, on ne s'en occupe pas ("4,1,2", "5,1,2", etc...) ?
A+

 

[pierrejean]

Re : macro combinaisons

Bonjour a tous

Bravo Pierrot 🙂
Salut Gorfael 🙂 (il semble que pour jyclain l'ordre des combinaisons n'est pas a prendre en compte 1 3 5 ou 1 5 3 est la même combinaison , ce qui ne facilite d'ailleurs pas les choses)

je presente néanmoins ce que j'ai pondu parce qu'il est possible de modifier les chiffres de la ligne de depart

 

[jyclain]

Re : macro combinaisons

Bonjour a tous

Bravo Pierrot 🙂
Salut Gorfael 🙂 (il semble que pour jyclain l'ordre des combinaisons n'est pas a prendre en compte 1 3 5 ou 1 5 3 est la même combinaison , ce qui ne facilite d'ailleurs pas les choses)

je presente néanmoins ce que j'ai pondu parce qu'il est possible de modifier les chiffres de la ligne de depart

Merci PierreJean

C'est tout à fait le résultat recherché.

 

[Kotov]

Re : macro combinaisons

Bonjour Jyclain,

Outre l'occasion de saluer Pierrot, Pierrejean et Gorfael, 😉 , je te propose le lien vers un fil récent qui a abordé un problème similaire de distribution-permutation à plus grande échelle :

https://www.excel-downloads.com/threads/pas-distribution-ni-permutation.97456/

Bon dimanche

Kotov

 

[job75]

Re : macro combinaisons

Bonjour,
Je découvre ce fil, il y a sûrement quelque chose qui m'échappe...
Ma macro est tout à fait misérable mais elle donne le résultat quelles que soient les valeurs en A1:E1 (classées dans l'ordre cependant).
On peut l'améliorer pour un ordre quelconque dans A1:E1, en déterminant le rang de chacune des cellules.
A+

 

[job75]

Re : macro combinaisons

Voir ci-joint le code amélioré (A1:E1 dans un ordre quelconque) qui évalue la fonction SMALL (PETITE.VALEUR).
A+