Générer toutes combinaisons possibles Euromillions dans Excel

Signaler
Messages postés
5
Date d'inscription
lundi 5 octobre 2020
Statut
Membre
Dernière intervention
9 octobre 2020
-
Messages postés
5
Date d'inscription
lundi 5 octobre 2020
Statut
Membre
Dernière intervention
9 octobre 2020
-
Bonjour,

J'aurais besoin d'une liste excel ou j'y retrouve toutes es combinaisons Euromillions possibles (5 numéros + 2 étoiles, sans doublons).

Comment obtenir cela dans un document Excel?
Un document similaire avait été partagé ici, mais il n'y avait que les 5 premiers chiffres et pas les 2 étoiles.

Merci pour votre aide :)
Très belle soirée
Pierre

6 réponses

Messages postés
23597
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
6 426
Bonjour,

et tu en ferais quoi des 33 561 158 400 combinaisons ?
eric
Messages postés
5
Date d'inscription
lundi 5 octobre 2020
Statut
Membre
Dernière intervention
9 octobre 2020

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
Messages postés
23597
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
6 426
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
Messages postés
1151
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
26 octobre 2020
115
Bonjour le fil,

si c'est pour gagner le pactole sans ensuite le partager, inutile de perdre des jours et des jours à construire ce type de fichier, en effet ^^

Pierre, tu as toujours la possibilité de récupérer ce fameux fichier et de faire en sortes d'y ajouter les 2 * ;-)
Messages postés
2169
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
22 octobre 2020
293
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
Messages postés
23597
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
6 426
Bonjour,

effectivement, j'avais compté les arrangements et non les combinaisons.
Mais bon, ça reste beaucoup ;-)
eric
Messages postés
5
Date d'inscription
lundi 5 octobre 2020
Statut
Membre
Dernière intervention
9 octobre 2020

Aha bon j’aurais essayé????
Avec une macro on doit y arriver (déjà vu pour les combinaisons avec les 5 chiffres, mais je ne maîtrise pas assez pour les 2 étoiles en plus????).

Merci quand-même pour votre aide :)
Messages postés
23597
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
6 426
Bien sûr qu'on peut.
Mais aucun intérêt car inutilisable.
eric
Messages postés
5
Date d'inscription
lundi 5 octobre 2020
Statut
Membre
Dernière intervention
9 octobre 2020
>
Messages postés
23597
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020

Comment ça « inutilisable »?

J’ai juste une idée dans la tête et je voudrais essayer d’analyser un peu plus, c’est pas pour autant que je suis sur le chemin de l’analyse parfaite qui va me donner les chiffres gagnants. Comme dit le hasard n’a pas de mémoire. Toutefois quand j’ai une idée derrière la tête j’aime juste bien essayer jusqu’au bout :)
Pas grave je trouverai un autre moyen. Merci quand-même.
Pierre
Messages postés
23597
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
6 426 >
Messages postés
5
Date d'inscription
lundi 5 octobre 2020
Statut
Membre
Dernière intervention
9 octobre 2020

Vraiment ?
Tu te vois lire 16384 colonnes par 1000000 lignes, et ce sur plusieurs feuilles ?
Parce que là pas question de filtrer sans construire en plus les outils nécessaires...
Messages postés
2169
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
22 octobre 2020
293
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
Messages postés
5
Date d'inscription
lundi 5 octobre 2020
Statut
Membre
Dernière intervention
9 octobre 2020

Merci infiniment pour le document Excel!!
Oui effectivement j’étais un peu naïf sur l’idée que je puisse gérer un fichier avec 140 mios d’entrées!!

Je vais essayer de faire au mieux, merci encore!
Je vous redis si je gagne, mais hein, parfois c’est bien de rêver un peu hihi!

Très belle fin de semaine!!
Pierre