Bonjour,
Voilà en cherchant, j’ai trouvé votre formule et je l’ai adapté pour mon tableau (voir ci-dessous).
- Dans cette formule serait-il possible de faire apparaitre que les noms > à 1 ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub CompteItems() Set mondico = CreateObject("Scripting.Dictionary") For Each c In Range("d12", [d65000].End(xlUp)) mondico(c.Value) = mondico(c.Value) + 1 Next c [S12].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys) [T12].Resize(mondico.Count, 1) = Application.Transpose(mondico.items) '[C1].Sort Key1:=[C2], Order1:=xlAscending, Header:=xlYes End Sub
- Et, serait-il possible de réinitialiser la colonne S12 et T12 à 1000 ?
Par avance, je vous remercie de votre.
Cordialement,
Azis
Partager