Discussion :

[Trystan441]

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 :

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

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,

[MarcelG]

Salut,

Tu peux utiliser la propriété

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 :

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

1
2
Dim k as Variant
For Each k in Dico.Keys

[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 ?

[MarcelG]

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.

[Trystan441]

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

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

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,

[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é

Ubound

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

[boisgontierjacques]

Bonjour,

Exemple

Code :

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

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 :

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

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 :

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

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