Compter le nombre de sortie de combinaison à 2 numéros au keno
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 ?
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 SubAttention ! 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 !
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 ?
Bonjour,
sur Mac tu n'as pas accès aux objets Windows.
Merci de mettre à jour ton profil
eric
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