L
Lucko
Guest
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.
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.
Code:
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