Compter les cellules identiques d'une colonne

Bonjour,
Voilà en cherchant, j’ai trouvé votre formule et je l’ai adapté pour mon tableau (voir ci-dessous).

Code:

---

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

J'ai pas vraiment compris ce que tu cherches à faire avec ce code pourrais tu reformuler :mrgreen:

Bonjour !

Citation:

---

Envoyé par zizoudpsp

Dans cette formule serait-il possible de faire apparaitre que les noms > à 1 ?

---

Je ne vois pas aucune formule ! (en langage Excel à proprement parler / lire / écrire …)

S'il faut continuer avec l'objet Dictionary, après la première boucle,
boucler sur toutes ses clefs et supprimer celles égales à 1 via remove (c'est documenté dans l'aide VBA).

Sinon si le nombre de lignes est raisonnable, en utilisant le B-A-BA d'Excel donc à la portée d'un débutant
via un filtre avancé et une simple formule de calculs NB.SI utilisable aussi en VBA …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub CompteItemsDoublons() Set d = CreateObject("Scripting.Dictionary") Set d2 = CreateObject("Scripting.Dictionary") For Each c In Range([a2], [a65000].End(xlUp)) If d.exists(c.Value) Then If d2.Item(c.Value) = 0 Then d2.Item(c.Value) = 2 Else d2.Item(c.Value) = d2.Item(c.Value) + 1 End If d.Item(c.Value) = "" Next c If d2.Count > 0 Then Range("c2").Resize(d2.Count, 1) = Application.Transpose(d2.keys) Range("d2").Resize(d2.Count, 1) = Application.Transpose(d2.items) End If End Sub

---

Boisgontier

Bonsoir à tous,

Je suis nouveau dans ce site, et je suis aussi débutant en VBA,

c'est exactement ce que je cherchais à une différence prés,
je souhaite apparaitre que les noms > à 6 :)

que dois-je modifier ?
merci beaucoup pour votre aide.
Salutations