Compter dans un dictionnary

Version imprimable

10/04/2019, 13h51
Trystan441

Compter dans un dictionnary
Bonjour à tous,

J'ai une liste d'articles auxquels sont associés une lettre (A, B, C ou rien). Cette liste possède des doublons. Ceux-ci sont de différents formats (Nombre, Texte).

Du coup, pour obtenir une liste sans doublon j'utilise l'objet Dictionnary en forçant, à l'aide de Cstr(), la mémorisation de la clé en string.
Code:

1 2 3 4 5 6 7 For i = 13 To Ligne Clé = CStr(WsTemp.Range("E" & i)) Valeur = CStr(WsTemp.Range("F" & i)) If Not MonDico.Exists(Clé) Then MonDico.Add Clé, Valeur Next i
Pour pouvoir compter le nombre de A, B, C ou rien, je voulais pouvoir boucler sur toutes les clés afin d'en connaître la valeur associée. Sauf que, je sèche.

Si vous avez la solution, je suis preneur !

Ps : Cette partie de procédure est intégrée à une sub plus volumineuse

Merci, et bonne journée,
10/04/2019, 13h56
MarcelG
Salut,

Tu peux utiliser la propriété

Citation:

Count

du dictionnaire.
Remarque.
Si
- tu avais activé la référence Scripting.Runtime
- tu avais déclaré ton dictionnnaire en Scripting.Dictionary (du moins pendant la phase de développement)
Alors, cette propriété te serait proposée par l'éditeur VBE.

Cela dit, tu peux boucler sur toutes les clés du dictionnaire en balayant justement ses clés
Code:

1 2 Dim k as Variant For Each k in Dico.Keys
10/04/2019, 14h00
Trystan441

Bonjour Marcel,

Merci pour ta réponse rapide,

Mon dictionnaire est bien déclaré, sur ça pas de soucis, j'ai normalement fait les choses correctement,

En ce qui concerne la propriété count, ne sert-elle pas seulement à compter le nombre de clé dans le dictionnaire ?
10/04/2019, 14h03
MarcelG

Citation:

En ce qui concerne la propriété count, ne sert-elle pas seulement à compter le nombre de clé dans le dictionnaire ?

C'était bien le sens de ta question, non?
Cela dit, il est possible d'utiliser cette propriété.

Balayer les clés, comme je l'indique dans la 2ème partie de mon post, est néanmoins préférable.
10/04/2019, 14h37
Trystan441

Non, ma question était de trouver le nombre de A, B, C ou rien :

Citation:

J'ai une liste d'articles auxquels sont associés une lettre (A, B, C ou rien)

Citation:

Pour pouvoir compter le nombre de A, B, C ou rien

Désolé si je me suis mal fait comprendre mais c'est bien les items associés aux keys dont j'ai besoin d'en connaître le nombre.

J'ai testé le for each et ça marche merveilleusement bien ! Merci beaucoup Marcel,

Belle journée à toi,
10/04/2019, 14h48
MarcelG

De rien Trystan, avec plaisir.

Juste un point
L'ensemble des items comme celui des clés d'un dictionnaire alimentent automatiquement, chacun, un tableau Array.
Leur propriété

Citation:

Ubound

suffit donc à connaître le nombre qui t'intéresse.

1 pièce(s) jointe(s)

Bonjour,

Exemple

Code:

1
2
3
4
5
6
7
8
Sub ElementsDifferentsDico()
  Set d1 = CreateObject("Scripting.Dictionary")
  Tbl = Range("B2:B" & [b65000].End(xlUp).Row)
  For i = 1 To UBound(Tbl)
     d1(Tbl(i, 1)) = ""
  Next i
  MsgBox d1.Count
End Sub

Sous forme de fonction:

Code:

1
2
3
4
5
6
7
8
Function élémentsDifférents(champ)
  Set d1 = CreateObject("Scripting.Dictionary")
  tbl = champ.Value
  For Each c In tbl
     d1(c) = ""
  Next c
  élémentsDifférents = d1.Count
End Function

Pour obtenir une liste sans doublon:

Code:

1
2
3
4
5
6
7
Sub ListeSansDoublons()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2", [a65000].End(xlUp))
    mondico(c.Value) = ""
  Next c
  [C2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub

Boisgontier