Discussion :

[arnaud.i]

Bonjour,

j'ai alimenté un premier dictionnaire Dico1 avec des références incrémentées pour éviter les doubons (Ex : ID1 - 1; ID1 - 2...)
Je souhaiterais alimenter un Dico2, sous condtion que la référence (ou partie de la référence) soit dans le Dico1.
Ex : Si ID1 est présent dans Dico1 alors ajouter ID1 dans Dico2 sachant que ID1 - 1; ID1 - 2...sont considérés comme ID1.

Code :

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

1
2
3
4
 
If Dico1.Exists(ID) Then
Dico2.Add key:=ID, item:=Quantity
End If

Pouvez-vous m'aider?

Merci d'avance,

[Jean-Philippe André]

Salut,

la fonction Exists teste une cle complete, mais ne fais pas de comparaison, aussi si tu veux faire une comparaison, tu pourras passer par un for each de ton dico1

Code :

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

1
2
3
4
5
6
7
8
For Each itm In Dico1
if itm LIKE "*" & ID & "*" Then
Dico2.Add key:=ID, item:=Quantity
Exit For
End If
' pour afficher key et value
'Debug.Print itm & " " & Dico1(itm)
Next

[Thumb down]

Bonsoir,
Ce sujet ne serait il pas en rapport avec ça ?

https://www.developpez.net/forums/d2...dictionnaires/

[Jean-Philippe André]

Effectivement, mais dans ce cas j'aurais recommandé l'utilisation d'une collection plutôt qu'un dictionary .

[eriiic]

Bonjour,

tu pourrais te créer un 2nd dico à la création du premier, avec la partie qui t'intéresse (ID1).
Ca t'évitera de devoir boucler sur le 1er dico à chaque fois.
eric

[Thumb down]

Dico1 contient 3 éléments séparés par des ";" qui correspond respectivement à : ID; Quantité; Sens
Dico2 contient 1 élément qui correspond à : Catégorie
Dico3 contient 1 élément qui correspond à : Prix Unitaire

Dans l'autre discussion il est dit que Dico2 était Catégorie, pourquoi pas utiliser les bon mots

Code :

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

1
2
Dim Catégorie as object
Set Catégories = CreateObject("Scripting.Dictionary")

Mais pour le reste sans savoir les tenants et les aboutissants je ne les connais pas et ai du mâle à les imaginer!

[arnaud.i]

Merci beaucoup pour vos retours. Effectivement je vais tester les deux solutions :

1. La collection avec la fonction contains
2. Réaliser une boucle sur le dictionnaire

Bonne journée