lister des combinaisons:

[JJ1]

Bonjour à tous,
je souhaiterais une macro qui me liste les combinaisons possibles pour 2 nombres de 1 à 50:
1 2
1 3
1 4
etc.. jusqu'à 49-50
(en évitant les doublons (5-5 par ex et l'ordre 4-5 suffit, je n'ai pas besoin de 5-4)
merci à vous
Bonne journée

 

[Gael]

Re : lister des combinaisons:

Bonjour JJ1,

Ci-joint ton exemple avec une macro de Myna LArson qui fait très bien toutes les listes de combinaisons et de permutations quelconques avec des chiffres ou des lettres.

Pour tester, tu lance simplement la macro.

Le mode d'emploi est au début de la procédure.

@+

Gael

 

[Tibo]

Re : lister des combinaisons:

Bonjour JJ1, salut Gael,

Pour le fun, une version formule :

en A1 :

=ENT((LIGNE()-1)/49)+1

en B1 :

=MOD((LIGNE()-1);49)+1+(LIGNE()>=(ENT((LIGNE()-1)/49))*50+1)

Formules à recopier vers le bas

Bon app à tous

@+

 

[JJ1]

Re : lister des combinaisons:

Bonjour Gael, Tibo,
merci pour votre aide.
Tibo, interressante ta formule, elle évite les doublons mais pas les permutations redondantes (ex: 3 5 et 5 3)
Bonne digestion.

 

[Lii]

Re : lister des combinaisons:

Bonjour Tous,

une macro limitée à ce cas :

Sub paire()
  Dim N As Byte, Li As Integer
  Range("A:C").ClearContents
  For N = 1 To 47
    Range("A" & N + Li) = N
    Range("B" & N + Li) = N + 1
    Range("C" & N + Li) = Range("A" & N + Li) & "   " & Range("B" & N + Li)
    Do
      Range("A" & N + Li + 1) = Range("A" & N + Li)
      Range("B" & N + Li + 1) = Range("B" & N + Li) + 1
      Range("C" & N + Li + 1) = Range("A" & N + Li + 1) & "   " & Range("B" & N + Li + 1)
      Li = Li + 1
    Loop Until Range("B" & N + Li) Mod 49 = 0
  Next
  Range("A" & N + Li) = 48
  Range("B" & N + Li) = 49
  Range("C" & N + Li) = 48 & "   " & 49
End Sub