Générer toutes combinaisons possibles Euromillions dans Excel

Bonjour,

et tu en ferais quoi des 33 561 158 400 combinaisons ?
eric

Bonjour,

Merci de votre réponse!
Ne devrait-il pas y en avoir dans les 139 millions?

Dans l’idéal j’aimerais pouvoir ajouter par la suite une formule par cellule (par exemple =droite(x;2) pour isoler les l’étoile la plus haute et ensuite filtrer et supprimer les cellule (combinaisons de chiffres qui ne correspondent pas à mes critères).

Ce serait possible dans Excel? Ça m’a l’air titanesque comme calcul dans le fichier.
Merci
Pierre

Bonjour,

chez moi 50*49*48*47*46*12*11 ça fait bien le nombre annoncé plus haut.
A raison de 16384 colonnes et 1000000 lignes par feuilles, va te faire 15 feuilles entièrement remplies.
Rien d'autre de prévu au cours de ce millénaire ?
Mais même 139 millions, ça n'aurait pas grand sens que de les lister. Excel n'est pas prévu pour ça
eric

Bonjour,

Juste un petit mot, il y a bien 139 838 160 combinaisons possibles pour trouver les bons numéros, voir ici
https://tirage-gagnant.com/probabilites-euromillions-chances-de-gagner/

Pour trouver ce nombre sous excel, faire

=COMBIN(50;5)*COMBIN(12;2)

Cdlt

Bonjour,

Comme dit par tous, remplir une grande quantité de colonnes avec toutes les combinaisons possibles, ce ne sera pratiquement plus exploitable par la suite.

Par contre, lister toutes les combinaisons à 5 chiffres (soit 2 118 760 combinaisons) et lister à part les combinaisons des numéros étoiles (soit 66 combinaisons) sera peut-être plus facile à gérer par la suite, reste à savoir ce que vous voulez en faire.

Je vous propose une macro qui dans un premier temps cherche les 66 combinaisons des numéros étoiles, puis cherche les 2 118 760 combinaisons du tirage à 5 chiffres.
-les 66 combinaisons des numéros étoiles en colonne A
-les 2 118 760 combinaisons des tirages à 5 chiffres dans un tableau allant de B2 à AJ60537.
Le tout réalisé en moins de 18 secondes sur mon PC.

Le code

Sub Trouver_combinaisons()
    Dim Lig As Long, Col As Long, i As Double, q As Double
    Dim Val_1 As Long, Val_2 As Long, Val_3 As Long, Val_4 As Long, Val_5 As Long
    Dim Combi
    Dim Dep As Date
    Cells.ClearContents
    Application.ScreenUpdating = False
    Deb = Timer
    'rechecherche des combinaisons avec 2 valeurs étoiles
    Trouver_combinaisons_2_Etoiles
    
    'rechecherche des combinaisons avec 5 valeurs
    Combi = ",1,2,3,4,5"
    Lig = 1
    Col = 2
    Dep = 1
    
    ReDim Result(60536) As String
    q = 1
    For i = 1 To 2118760 'Nombre maximal de combinaisons de tirage de 5 sur 50
        If q = 1 Then Deb_Combi = Combi
        Combi = Split(Combi, ",")
            Val_1 = Combi(1) * 1
            Val_2 = Combi(2) * 1
            Val_3 = Combi(3) * 1
            Val_4 = Combi(4) * 1
            Val_5 = Combi(5) * 1
        If Val_5 < 50 Then
            Val_5 = Val_5 + 1
        Else
            If Val_4 < 49 Then
                Val_4 = Val_4 + 1
                Val_5 = Val_4 + 1
            Else
                If Val_3 < 48 Then
                    Val_3 = Val_3 + 1
                    Val_4 = Val_3 + 1
                    Val_5 = Val_4 + 1
                Else
                    If Val_2 < 47 Then
                        Val_2 = Val_2 + 1
                        Val_3 = Val_2 + 1
                        Val_4 = Val_3 + 1
                        Val_5 = Val_4 + 1
                    Else
                        If Val_1 < 46 Then
                            Val_1 = Val_1 + 1
                            Val_2 = Val_1 + 1
                            Val_3 = Val_2 + 1
                            Val_4 = Val_3 + 1
                            Val_5 = Val_4 + 1
                        End If
                    End If
                End If
            End If
        End If
        Result(q) = Val_1 & "," & Val_2 & "," & Val_3 & "," & Val_4 & "," & Val_5
        Combi = "," & Result(q)
        If i Mod 60536 = 0 Then
            Range(Cells(2, Col), Cells(60537, Col)) = Application.WorksheetFunction.Transpose(Result)
            Col = Col + 1
            Erase Result
            ReDim Result(q) As String
        End If
        If q = 60536 Then
            Cells(2, Col - 1) = Right(Deb_Combi, Len(Deb_Combi) - 1)
            q = 1
        Else
            q = q + 1
        End If
    Next i
    Range("A1").Value = "Combinaisons des numéros du tirage ""Etoiles"""
    Range("F1").Value = "Combinaisons du tirage des 5 numéros"
    MsgBox "Recherche terminée, temps d'exécution:" & Timer - Deb & "Sec"
End Sub

Sub Trouver_combinaisons_2_Etoiles()
    Dim Lig As Long, Col As Long, i As Long
    Dim Val_1 As Long, Val_2 As Long
    Dim Combi
    Application.ScreenUpdating = False
    
    'rechecherche des combinaisons avec 5 valeurs
    Combi = "_1_2"
    Lig = 2
    Col = 1
    Cells(1, Col) = Combi
    ReDim Result(66) As String
    For i = 1 To 65 'Nombre maximal de combinaisons de tirage de 2 sur 12 -1
        Combi = Split(Combi, "_")
            Val_1 = Combi(1) * 1
            Val_2 = Combi(2) * 1
        If Val_2 < 12 Then
            Val_2 = Val_2 + 1
        Else
            If Val_1 < 11 Then
                Val_1 = Val_1 + 1
                Val_2 = Val_1 + 1
            End If
        End If
        Lig = Lig + 1
        Result(i) = Val_1 & "_" & Val_2
        Combi = "_" & Result(i)
    Next i
    Range(Cells(2, Col), Cells(667, Col)) = Application.WorksheetFunction.Transpose(Result)
    Cells(2, Col) = "1_2"
End Sub

Le fichier (cliquez sur le bouton pour générer les combinaisons)
https://mon-partage.fr/f/dj3OliwK/

Pour obtenir la liste de toutes les combinaisons possibles (tirage 5 numéros + tirage étoiles) soit 139 838 160 combinaisons, il faut pour chaque numéro à 5 chiffres, leur ajouter chacune des 66 valeurs des numéros étoiles. (Si c'est vraiment ce que vous voulez faire)

Cdlt