Bonjour,
Voilà en cherchant, j’ai trouvé votre formule et je l’ai adapté pour mon tableau (voir ci-dessous).
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
- Dans cette formule serait-il possible de faire apparaitre que les noms > à 1 ?
- Et, serait-il possible de réinitialiser la colonne S12 et T12 à 1000 ?
Par avance, je vous remercie de votre.
Cordialement,
Azis