Discussion :

[zizoudpsp]

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

[Al__22]

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

[Marc-L]

Bonjour !

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, …

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[TonyNiort79]

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