macro combinaisons

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2008

• #2

Re : macro combinaisons

Bonjour jyclain

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

Code:

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.
@+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 15 Juin 2008

• #3

Re : macro combinaisons

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Juin 2008

• #4

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

 

Pièces jointes

• dixcombinaisons.zip

  10.1 KB · Affichages: 232

Vote positif 0 Vote négatif

J

jyclain

XLDnaute Nouveau

• 15 Juin 2008

• #5

Re : macro combinaisons

pierrejean à dit:

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

Cliquez pour agrandir...

Merci PierreJean

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

 

Vote positif 0 Vote négatif

Kotov

XLDnaute Impliqué

• 15 Juin 2008

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2008

• #7

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+

 

Pièces jointes

• Combinaisons 5 nombres.xls

  26.5 KB · Affichages: 124
• Combinaisons 5 nombres.xls

  26.5 KB · Affichages: 140
• Combinaisons 5 nombres.xls

  26.5 KB · Affichages: 133

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2008

• #8

Re : macro combinaisons

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

 

Pièces jointes

• Combinaisons 5 nombres.xls

  27 KB · Affichages: 157
• Combinaisons 5 nombres.xls

  27 KB · Affichages: 155
• Combinaisons 5 nombres.xls

  27 KB · Affichages: 164

Vote positif 0 Vote négatif