XL 2016 À la recherche de la macro perdue..

Paf à dit:

Bonsoir à tous,

un essai macro qui répond peut-être au besoin, puisqu'il propose les 12 nombres sortis le plus fréquemment.

VB:

Private Sub CommandButton1_Click()
Dim T, i As Long, dico, Clé, OK As Boolean, T2
Set dico = CreateObject("Scripting.Dictionary")
With Worksheets("Exemple") '** => à adapter
T = .Range("E18:P" & .Range("E" & Rows.Count).End(xlUp).Row)
For i = LBound(T, 1) To UBound(T, 1)
    For j = LBound(T, 2) To UBound(T, 2)
        dico(T(i, j)) = dico(T(i, j)) + 1
    Next
Next
T2 = Application.Transpose(Array(dico.keys, dico.Items))
'**** tri en ordre décroissant
While OK = False
    OK = True
    For i = LBound(T2, 1) To UBound(T2, 1) - 1
        If T2(i, 2) < T2(i + 1, 2) Then
            Tmp1 = T2(i, 1)
            Tmp2 = T2(i, 2)
            T2(i, 1) = T2(i + 1, 1)
            T2(i, 2) = T2(i + 1, 2)
            T2(i + 1, 1) = Tmp1
            T2(i + 1, 2) = Tmp2
            OK = False
        End If
    Next
Wend
'** copie des 12 nombres (sur 24)étant le plus souvent sortis
.Range("E5").Resize(1, 12) = Application.Transpose(T2)
End With
End Sub

On peut facilement faire afficher de 1 à 24 nombres (pour l'exemple du classeur) ainsi que leur nombre de sorties.

A+

Cliquez pour agrandir...

Backhandshot à dit:

Bonsoir à tous!
Lucko, voici les 7 combinaisons à 10 chiffres qui ont sorti le plus souvent soit 4 fois chaque depuis la création du jeu Banco.
Sans te faire la morale il existe 357 Milliards de combinaisons possibles à 10 chiffres avec 70 numéros.

2,8,12,17,27,40,46,62,66,68
3,9,13,14,16,20,34,36,44,55
4,12,17,19,21,39,46,52,54,56
4,20,36,39,41,46,47,56,62,70
10,12,24,32,34,48,50,52,54,62
10,14,16,17,35,37,41,52,55,67
19,28,40,55,58,59,60,66,67,70

Salutations !

Cliquez pour agrandir...

Lucko à dit:

Cela dit, je n'ai toujours pas de code capable de trouver instantanément la combinaison la plus souvent sortie parmi toute la liste des combinaisons. Ci-joint le fichier Excel modifié pour la Banco à partir des données fournies par Back. Je suis ouvert aux commentaires et suggestions de code et non sur la morale sur le jeu...😉 Merci encore Back et Paf.

Cliquez pour agrandir...

patricktoulon à dit:

re
ceci t'aidera peut être à comprendre ce que je dis

VB:

Sub test()
MsgBox "10 sur 10 = " & CDec(10 ^ 10) & " combinaisons"
MsgBox "10 sur 20 = " & CDec(10 ^ 20) & " combinaisons"
MsgBox "10 sur 30 = " & CDec(10 ^ 30) & " combinaisons"
End Sub

Cliquez pour agrandir...

labombola46 à dit:

Je ne voulais pas forcément dire 10 chiffres que la macro m’avait proposés, même 5 chiffres seraient bien. De plus, la gamme d’extractions à examiner serait mon intention de les imiter à 100/120. Malheureusement la langue française ne m’aide pas cela se fait avec google translator

Cliquez pour agrandir...