XL 2016 À la recherche de la macro perdue..

[Lucko]

Bonjour,

Je recherche une macro pour augmenter l'efficacité de mes recherches d'une combinaison de numéros parmi une liste. En faisant du copie-coller, j'ai réussi à bricoler une méthode de recherche mais elle n'est pas très performante. J'ai besoin de vos lumières. J'ai écris les instructions dans le fichier ci-joint. Merci de votre aide.

Lucko

 

[Backhandshot]

Bonjour à tous
Lucko, tel que demandé voici la liste de tous les tirages de Banco à jour (21 nov) inclus
Salutations !

 

[Lucko]

Back,

Merci. Incroyable! Tu as toutes les combinaisons depuis le début!!! Je vais essayer de les adapter à mon projet. Il faut juste que je trouve un truc pour en inverser l'ordre du plus récent au plus ancien.

 

[Lucko]

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.

 

[Lucko]

Bonjour à tous,

Je n'aime pas trop revenir à la charge ou insister plus qu'il ne faut mais on ne sait jamais peut-être quelqu'un n'a-t-il pas lu mon message et peut encore me venir en aide dans ma recherche d'un code pour trouver rapidement une séquence de combinaisons.

 

[Lucko]

Bonsoir à tous,

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

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+

Paf est-il possible d'adapter ce code pour dix numéros et un nombre spécifique de lignes . Autrement dit entre E19 et P100 par exemple? Merci

 

[Backhandshot]

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 !

 

[Lucko]

Bonjour Back,

Je ne sais pas qu'il y avait des combinaisons de 10 chiffres qui étaient sorties plus d'une fois. À partir du code fourni par Paf que j'ai finalement réussi à modifier, j'essaie de concocter une façon de faire qui se rapproche de l'analyse technique de la bourse. On verra bien qu'est-ce que cela peut donner!!! mais j'en apprends beaucoup sur les macros en utilisant plein d'exemple plutôt que simplement en suivant une formation.

 

[Lucko]

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 !

Bonjour Back,

Une autre demande de ma part. Aurais-tu l'équivalent du fichier Lucko que tu m'as envoyé cette semaine pour la Banco? Je me suis mis à la Banco depuis mercredi et j'ai délaissé Tout ou Rien. Je suis toujours en train de concocter une méthode non aléatoire pour choisir mes numéros. Merci encore.

 

[Backhandshot]

Bonsoir Forum, Lucko
Voici le fichier original fait par MaPomme que tu m'as demandé. Le fichier fait toutes les mises à 3 chiffres parmi 70

Bonne soirée !

 

[Lucko]

Merci Back et bonjour à tous.

 

[labombola46]

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.

J’ai vu cette macro (#18). Je dois dire que j’aime vraiment ça et j’aimerais savoir si vous pourriez faire une version avec le lot italien. Le loto italien a 90 numéros un pari peut être composé d’un maximum de 10 numéros. Les prix sont décernés pour l’extrait (1 num) pour l’ambo (2 num) pour le terno (3 num) pour le quaterna (4 num) et la cinquina (5 num). J’aimerais que la macro me dise les 10 meilleurs numéros qui, lors des tirages précédents, m’avaient donné le plus de gains. Pour l’instant, je voudrais remercier ceux qui peuvent m’aider. A plus tard pour plus d’explications

 

[patricktoulon]

bonjour
c'est pas bien de déterrer les vieux posts
ça fait beaucoup toutes les combinaisons de 10 nombres sur 90
rien que pour les combinaisons on est dans le dépassement de capacité là
et pour les permutations c'est même pas la peine
c'est pas excel qu'il te faut et surtout il te faut beaucoup de temps
un code en VB VBA VBS traitant 10/90 pourrait mettre au moins 12 heures et encore!! pour les pcs les plus puissants

 

[patricktoulon]

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

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

 

[labombola46]

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

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

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

 

[labombola46]

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

Veuillez m’excuser d’avoir choisi cet ancien post mais j’ai aimé les paramètres des macros et la façon dont elles ont été présentées dans la sortie en appuyant sur le bouton « Statisques »