Compter le nombre de sortie de combinaison à 2 numéros au keno

38keno-202010.xlsm (71.94 Ko)

Bonsoir à tous,

Je pense que je ne suis pas le seul à m'interroger sur ce sujet...

Je cherche à savoir combien de fois chaque combinaison de 2 numéros au keno est sorti, selon les anciens tirages.

Sachant qu'il y a 70 numéros en tout, soit 2415 combinaisons.

En onglet 2 j'ai commencé un tableau, une formule pour le remplir ? Ou peut-être avez vous d'autres idées ?

Ci-joint le fichier excel. Si vous avez d'autres suggestions, je prends :)

Merci d'avance,

Bonsoir,

proposition de code :

Sub TrouvePaireLRD()

    Dim Chiffre As Integer ' correspondra aux colonnes
    Dim Duo As Integer, Total_Duo As Long ' duo correspondra aux lignes
    Dim Ligne As Long
    Dim Deb_Zone As Long, Fin_Zone As Long
    Dim Cel As Range

    Deb_Zone = 2
    Fin_Zone = 456
    Ligne = Deb_Zone
    Application.ScreenUpdating = False
    Sheets("Feuil1").Range("B2:BS71").ClearContents
    With Sheets("keno_202010")
        For Chiffre = 1 To 69
            For Duo = Chiffre + 1 To 70
                Do
                    DoEvents
                    If .Cells(Ligne, 1).Value = "" Then Exit Do
                    If Ligne > Fin_Zone Then Exit Do

                    Set Cel = .Cells(Ligne, 5).Resize(1, 20).Find(Chiffre)
                    If Not Cel Is Nothing Then
                        Set Cel = .Cells(Ligne, 5).Resize(1, 20).Find(Duo)
                        If Not Cel Is Nothing Then
                            Total_Duo = Total_Duo + 1
                        End If
                    End If
                    Ligne = Ligne + 1
                Loop
                Sheets("Feuil1").Cells(Duo + 1, Chiffre + 1).Value = Total_Duo
                Total_Duo = 0
            Ligne = 2
            Next Duo
        Next Chiffre
    End With
End Sub

Attention ! C'est long ! C'est pourquoi j'ai mis un "DoEvents" afin que vous gardiez la main sur l'application pour éventuellement arrêter le code VBA.

A vérifier que c'est les bons chiffres

@ bientôt

LouReeD

Merci pour votre réponse, c'est top !

Avez-vous essayer de votre coté ? Il ne se passe rien chez moi, ou alors c'est vraiment très long

J'ai lancé le code et il y a bien des chiffres comme 453 paires de 1 avec le 2 etc...
J'ai neutralisé l'affichage de l'écran pour accélérer le code c'est pourquoi il n'y a rien, allez sous VBA puis mettez un point d'arrêt sur une boucle avec un clic droit sur la marge de gauche de la fenêtre de code, le programme s'arrête et l'écran est mis à jour vous verrez les premiers résultats alors...

@ bientôt

LouReeD

Bonjour,

453 fois où le 1 et le 2 sont sortis ensemble : c'est plutôt improbable étant donné qu'il y a en tout 455 lignes. Cela voudrait dire qu'à chaque tirage, le 1 et 2 sortent ensemble.

Peut-être une idée avec une formule matricielle ?

Il y a 44 combinaisons ou il y apparait le 1 et le 2 !

trouvé en appliquant un filtre automatique.... reste à trouvé comment coder !!!

Ce doit être Find qui fait cela, en cherchant la paire 1 et deux, il doit trouver 1 et 2 mais aussi 12 et 21...

J'avais fait un code similaire à ceci pour le loto et cela marche bien mais en fait je testais chaque valeur de boule du tirage, et là j'ai voulu faire une recherche "globale" sur la ligne du tirage et je me suis planté ! Il suffit alors de mettre le paramètre xlWhole dans les find afin de faire une recherche de valeur "exacte".

@ bientôt

LouReeD

le code corrigé, mais il manque de rapidité et j'ai bien 44 pour la première paire

ption Explicit

Sub TrouvePaireLRD()

    Dim Chiffre As Integer ' correspondra aux colonnes
    Dim Duo As Integer, Total_Duo As Long ' duo correspondra aux lignes
    Dim Ligne As Long, I, j
    Dim Deb_Zone As Long, Fin_Zone As Long
    Dim Cel As Range
    Deb_Zone = 2
    Fin_Zone = 456
    Ligne = Deb_Zone
    Application.ScreenUpdating = False
    Sheets("Feuil1").Range("B2:BS71").ClearContents
    With Sheets("keno_202010")
        For Chiffre = 1 To 69
            For Duo = Chiffre + 1 To 70
                Do
                    DoEvents
                    If .Cells(Ligne, 1).Value = "" Then Exit Do
                    If Ligne > Fin_Zone Then Exit Do
                    Set Cel = .Range(.Cells(Ligne, 5), .Cells(Ligne, 20)).Find(Chiffre, LookAt:=xlWhole)
                    If Not Cel Is Nothing Then
                        Set Cel = .Range(.Cells(Ligne, 5), .Cells(Ligne, 20)).Find(Duo, LookAt:=xlWhole)
                        If Not Cel Is Nothing Then
                            Total_Duo = Total_Duo + 1
                        End If
                    End If
                    Ligne = Ligne + 1
                Loop
                Sheets("Feuil1").Cells(Duo + 1, Chiffre + 1).Value = Total_Duo
                Total_Duo = 0
            Ligne = 2
            Next Duo
        Next Chiffre
    End With
End Sub

@ bientôt

LouReeD

Bonjour à tous !

Voici ton fichier en retour, toutes les explications fournies pour faire tourner la macro

Vois si cela te convient

Bonne journée !

43keno-202010.xlsm (144.27 Ko)

Bonsoir à tous,

@Nordik_Nation : Je suis sur MAC, qu'est ce je peux faire pour "PS: MICROSOFT SCRIPTING RUNTIME" ? Sinon, c'est exactement ce que je veux annalyser, dommage.

@LouReed : Je te remercie pour ta contribution, je crois que mon ordi n'est pas assez puissant

Bonjour à tous!

JB_ voici comment activer microsoft scripting runtime

Dans le ruban de Excel tu dois avoir Visual Basic

**** Si l'icône n'est pas là tu devras aller dans Options de Excel et insérer Développeur dans le ruban ****

Clique sur Visual Basic

Clique sur Outils dans le menu en haut ----> Références une autre fenêtre devrait s'ouvrir juste à trouver

Microsoft Scripting Runtime et cocher la case

Bonne continuation !

Bonne journée !

Merci ! Oups, pourquoi MANQUANT ?

capture d ecran 2021 06 04 a 22 35 27

Bonjour,

sur Mac tu n'as pas accès aux objets Windows.
Merci de mettre à jour ton profil
eric

suite...

un essai, 0.13 s chez moi
eric

39keno-202010.xlsm (82.74 Ko)

Wow, ça fonctionne et vite

Merci eriiic

N'oublie pas de compléter ton profil avec ta version excel et ton OS
Ca évitera des réponses inadaptées

C'est fait

Bonsoir eriiic !

Bravo !

Je ne comprend pas l'égalité de tableau vide qui passe à 1 grâce au +1... Vous pouvez m'aider ? Car sur mon applit "Loto" (à venir) j'ai aussi cette recherche de duo mais comme mon code va plus lentement...

@ bientôt

LouReeD

Salut loureed,

je veux bien, mais il faudrait que je comprenne la question.
Je suis tenté de te répondre "parce que 0+1=1" mais mon petit doigt me dit que ce n'est pas la réponse que tu attends
eric

Comment du vide = du vide +1 permet de compter les associations de "1" avec "3" sur 400 lignes différentes....

Je n'arrive pas à saisir le fonctionnement du code. Je dois passer à coter de quelque chose mais je ne vois pas, désolé...

@ bientôt

LouReeD

Rechercher des sujets similaires à "compter nombre sortie combinaison numeros keno"