L
Lucko
Guest
Code:
Private Sub Statistiques()
Dim T, i As Long, dico, Clé, OK As Boolean, T2
Set dico = CreateObject("Scripting.Dictionary")
With Worksheets("Tout ou Rien")
T = .range("E18:X24") <--- J'aimerais modifier cette partie pour pouvoir changer la plage de recherche dans la feuille et non dans le code puisqu'elle varie en fonction des données recueillies et de mes recherches. Autrement dit, que je puisse écrire X500 ou x246, ou x1000 dans une cellule de la feuille.
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("p5").Resize(1, 10) = Application.Transpose(T2)
End With
End SubPaf a eu l'amabilité de me soumettre ce code macro. Après réflexion, je le trouve utile. j'ai réussi à le modifier quelque peu pour limiter la plage de recherche et le nombre de numéros nécessaire, 10 ou lieu de 12, mais j'aimerais y apporter une autre modification. Voir en rouge dans le code. Merci à tous.