Générer une liste de combinaison

bonjour a tous,

voila comme mon sujet l'indique "générer une liste de combinaison" mais pourquoi faire?

j'aimerais avoir la totalité des combinaisons de n parmi k * d parmi e

n étant le nombre de numéros a choisir lorsque l'on coche une grille euromillion

k étand l'ensemble des numéros a l'euromillion

d étand le nombre d'étoiles a choisir lorsque l'on coche une grille euromillion

e étand l'ensemble des étoiles a l'euromillion

j'ai un code pour générer n parmi k c'est a dire 5 parmi 50 soit 2 118 760 de possibilité

mais voila il ne comprend pas les étoiles qulqu'un pourrait modifier ou m'aider a modifier le code ci dessous

Sub combinaisons()
Dim lin&, col&, rc&, m%, n%, o%, p%, q%, tir$()
lin = 1
col = 0
rc = Rows.Count
ReDim tir(1 To rc, 0)
    For m = 1 To 50
        For n = m + 1 To 50
            For o = n + 1 To 50
                For p = o + 1 To 50
                    For q = p + 1 To 50
                        If (m Mod 2) + (n Mod 2) + (o Mod 2) + (p Mod 2) + (q Mod 2) <> 0 And (m Mod 2) * (n Mod 2) * (o Mod 2) * (p Mod 2) * (q Mod 2) = 0 Then '***
                          tir(lin, col) = m & " " & n & " " & o & " " & p & " " & q
                            lin = lin + 1
                            If lin > rc Then
                                col = col + 1
                                lin = 1
                                ReDim Preserve tir(1 To rc, col)
                            End If
                        End If '***
                  Next q
                Next p
            Next o
        Next n
    Next m
    Range(Cells(1, 1), Cells(rc, col + 1)).Value = tir
End Sub

merci d'avance

Bonsoir,

J'ai lu ta macro (un mod me fait penser à pair/impair non?)

Déjà, il y a 2118760 combinaisons.

En ajoutant les 55 permutations des étoiles, on arrive à 116531800 combis, c'est ce que tu souhaites?

a+