XL 2016 Tableau stat loto.

[Rothfeller]

Bonjour,

Je cherche une formule Excel bien précise et je n'y arrive pas, je ne pense pas que ce soit très compliqué mais j'ai besoin d'un petit coup de main. Pour l'exemple, j'ai pris des résultats du loto sur le site de la FDJ, j'ai utilisé la fonction NB.SI pour savoir combien de fois sont sortis chacune des 49 boules et des 10 Numéros chance. Ensuite j'aimerais savoir pour chacune des 49 boules; quel boule à la meilleure affinité et celle qui à en le moins. Autrement dit, le numéro le + et- sortis dans un même tirage avec le numéro analysés. Ce calcul existe sur le site : secretsdujeu .com page jeux_loto_statistiques. Colonne Affinité+/-.
Exemple avec la Boule numéro 13 : le 3 à la meilleure affinité et le 29 en a le moins. Donc, la boule 3 sort souvent et la 29 rarement à chaque fois que la boule 13 sort.
J'aimerais pouvoir reproduire cette formule moi-même sur un tableau donné.
Serait-il possible d'avoir vos avis la dessus ? Je vous transmet mes fichiers Excel déjà commencé. Je vous remercie d'avance.

Bien cordialement.

 

[dysorthographie]

Tu préfères pas le théorème de Monte-Carlo qui te donneras la combinaison gagnante à coup sûr?

 

[dysorthographie]

Bonjour,

Sub test()
ThisWorkbook.Sheets("Stat").Cells.Delete

With CreateObject("Adodb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    Set rs = .Execute(SqlTirage)
    For i = 0 To rs.Fields.Count - 1
        ThisWorkbook.Sheets("Stat").Range("A1").Offset(, i) = rs(i).Name
    Next
    ThisWorkbook.Sheets("Stat").Range("A2").CopyFromRecordset rs
    Set rs = .Execute(SqlChance)
    With ThisWorkbook.Sheets("Stat")
        With .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(2)
            For i = 0 To rs.Fields.Count - 1
                .Offset(, i) = rs(i).Name
            Next
            .Offset(1).CopyFromRecordset rs
        End With
    End With
    
    .Close
End With
ThisWorkbook.Sheets("Stat").Select
End Sub
Function SqlTirage()
With ThisWorkbook.Sheets("Historique Tirage loto.")
SqlTirage = "Select Boules ,(count(Boules)/" & (.UsedRange.Rows.Count * 5) & ")*100 as [% tirages] from ("
SqlTirage = SqlTirage & vbCrLf & "Select [boule_1] as Boules from [Historique Tirage loto#$]"
SqlTirage = SqlTirage & vbCrLf & " union all Select [boule_2] as Boules from [Historique Tirage loto#$]"
SqlTirage = SqlTirage & vbCrLf & " union all Select [boule_3] as Boules from [Historique Tirage loto#$]"
SqlTirage = SqlTirage & vbCrLf & " union all Select [boule_4] as Boules from [Historique Tirage loto#$]"
SqlTirage = SqlTirage & vbCrLf & " union all Select [boule_5] as Boules from [Historique Tirage loto#$]"
SqlTirage = SqlTirage & vbCrLf & ") group by Boules order by Boules "
End With
End Function
Function SqlChance()
With ThisWorkbook.Sheets("Historique Tirage loto.")
    SqlChance = "Select [numero_chance] as [N Chance], (count([numero_chance])/" & (.UsedRange.Rows.Count) & ")*100 as [% tirages]  from [Historique Tirage loto#$] group by [numero_chance]"
End With
End Function

 

[dysorthographie]

un petite étourderie! UsedRange.Rows.Count prend le titre avec ce qui fausse le pourcentage!

 ((.UsedRange.Rows.Count - 1)) & ")*100 as [% tirages]