XL 2016 Variable de sortie

[Lucko]

Bonjour à tous,

Peut-on, à partir du code fait par Paf qui permet de trouver le plus grand nombre de fois qu'un numéro est sortie dans un tableau, jouer sur la variable de sortie. C'est à dire au lieu de trouver le plus grand nombre de fois qu'un numéro est sortie; trouver les numéros qui sont sortis 2 fois ou 3 fois ou 4 fois etc parmi x nombre de ligne?

Merci pour votre aide.

Sub Sélection70()
Dim t, i As Long, j As Long, Dico, Clé, tmp1, tmp2, OK As Boolean, T2

With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    .EnableEvents = False
    .CutCopyMode = False
   
End With


Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Banco")
t = .range("E" & .range("Y10") & ":X" & .range("Y11"))
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))
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
.range("J10").resize(1, range("X8")) = Application.Transpose(T2)
End With

With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .EnableEvents = True
    .CutCopyMode = True
   
End With
End Sub

 

[Lone-wolf]

Bonjour Lucko

Après 99 messages... sans fichier, difficile de deviner. Dans une colonne à part, plage à modifier: =MODE(A2:I2)

En VBA

Sub test()
With Feuil1
derlig = .Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("k" & i) = Application.Mode(.Range(.Cells(i, 1), .Cells(i, 9)))
Next i
End With
End Sub

 

[Lucko]

Bonjour Lucko

Après 99 messages... sans fichier, difficile de deviner. Dans une colonne à part, plage à modifier: =MODE(A2:I2)

En VBA

Sub test()
With Feuil1
derlig = .Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("k" & i) = Application.Mode(.Range(.Cells(i, 1), .Cells(i, 9)))
Next i
End With
End Sub

Bonjour Lone-wolf,

Voici le fichier en question. Comment puis-je intégrer ton code avec celui de Paf pour n'en faire qu'un? Merci

 

[Lone-wolf]

Re

Désolé mais, je n'arrive pas à obtenir le résultat escompté. Et c'est bizarre, sur le fichier joint par contre...

 

[Lucko]

Re

Désolé mais, je n'arrive pas à obtenir le résultat escompté. Et c'est bizarre, sur le fichier joint par contre...

D'abord merci d'avoir pris de ton temps pour avoir regarder mon problème. En faites, l'idée était de pouvoir moduler ma recherche dans une plage de données (tableau) en fonction d'une variable (ceux qui sont sortis 2 ou 3 ou 4 fois dans les X derniers tirages peu importe) afin de trouver parmi les numéros antérieurs une combinaison de numéros de 10 chiffres parmi laquelle ont peut retrouver des numéros qui sortis 2 et 3 fois combiné avec des numéros qui ont sortie 4 ou 1 ou encore 3 ou 5 fois par exemple. Avec le code de PAF, que je remercie encore une fois, je n'obtiens que les numéros qui ont le plus souvent sortie depuis X tirages. J'aimerais pouvoir moduler ma rechercher en fonction de critères et en pouvant mélanger le nombre de sortie des numéros selon mon loisir. Je ne sais pas si je m'exprime clairement. Mon fichier est un "work in progress", c'est pour cela que je fais appel régulièrement au talent des gens de ce forum. Mes connaissances en VBA sont très limitées et se résument à mes lectures ici et sur le web. Par contre, je me débrouille assez bien avec Excel dans les limites des fonctions de base.

 

[Lucko]

Bonjour à tous et Joyeuses Fêtes,

Je relance ma demande auprès de la communauté de ce forum. Je ne sais pas si cela est techniquement faisable de modifier le code de PAF (voir fichier déjà inclus) afin de pouvoir extraire des numéros en fonction de leur fréquence de sortie parmi une plage de données. Par exemple, en utilisant les critères suivants:

2 numéros ayant sortie 3 fois dans les 10 derniers tirages
1 numéros ayant sortie 6 fois dans les 10 derniers tirages
3 numéros ayant sortie 2 fois dans les 10 derniers tirages
....
....
etc
pour un total de 10 numéros.

Merci

 

[Lucko]

Bonjour,

Comme je n'ai pas eu de suggestions, j'imagine que mon problème est impossible à résoudre. Quoi qu'il en soit, je tiens à vous remercier pour votre aide et je souhaite à tous de Joyeuses Fêtes.