Scripting.Dictionary Question et probléme incrémentation Item

Bonjour,

Dans mon programme je dois incrémenter un nombre en le stockant en fonction d'une date et d'une région, j'ai donc utilisé la structure de données Dictionnary qui répondait parfaitement à mon problème. A propos de son utilisation j'ai deux questions :

Peut-on ajouter seulement des clés et non des couples clé-valeur ? Pour l'instant je triche en le remplissant comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim dicReg As Scripting.Dictionary Set dicReg = New Scripting.Dictionary For i = 0 To UBound(tabJour) For k = 0 To UBound(tabRegion) With dicReg .Add tabJour(i) & tabRegion(k), -1 End With Next k Next i

---

Enfin, peut-on récupérer la valeur actuel d'un item avec sa clé, lui ajouter un nombre, puis le stocker à nouveau dans le dictionnaire ? Pour m'expliquer voici un bout de code :

Code:

---

1 2 3

With dicReg.Item(tabJour(jour) & tabRegion(k)) = dicReg.Item(tabJour(jour) & tabRegion(k)) + Round(wbModif.Sheets("Prev_Agents").Cells(ligneMOB, 7) - (wbModif.Sheets("Prev_Agents").Cells(ligneMOB, 7) * percentage), "0") End With

---

Dans ce dernier bout de code, il faut savoir que cet instruction est à l'intérieur de deux boucles, donc les valeurs de tabJour et tabRegion change au fur de l'incrementation ainsi que la valeurs de ligneMOB

C'est un peu compliqué et fastidieux.
Merci d'avance,
Solown

re
je crois comprendre que tu confond item/cle
quand tu fait

Code:

---

dico("toto")=x

---

tu ne peut pas faire

Code:

---

dico("toto"+x")=x

---

en fait ca ajoute un item a ton dico ce n'est donc plus le meme item

bonjour,

Code:

---

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

Public dicReg As Object ' Scripting.Dictionary Property Get Assigner(v As String) As Variant If TypeName(dicReg) = "Nothing" Then Set dicReg = CreateObject("Scripting.Dictionary") Assigner = dicReg(v) End Property Property Let Assigner(v As String, Value As Variant) If TypeName(dicReg) = "Nothing" Then Set dicReg = CreateObject("Scripting.Dictionary") dicReg(v) = Value End Property     Sub test() Set dicReg = Nothing For i = 1 To 10 Assigner(Date) = Assigner(Date) + 1 Next Debug.Print Assigner(Date) End Sub

---

Salut et merci pour vos réponses.

Dysorthographie, peut-tu m'expliquer ton code ?

Petite clarification, en faite mon problème vient surtout du fait que sur cette instruction :

Code:

---

1 2 3

With dicReg.Item(tabJour(jour) & tabRegion(k)) = dicReg.Item(tabJour(jour) & tabRegion(k)) + Round(wbModif.Sheets("Prev_Agents").Cells(ligneMOB, 7) - (wbModif.Sheets("Prev_Agents").Cells(ligneMOB, 7) * percentage), "0") End With

---

La valeur n'est pas à mise à jour à chaque itération des boucles, c'est à dire que quand je fais dicReg.Item( tabJour(jour) & tabRegion(k)) cette valeur est à -1 et reste à -1 alors que cette instruction devrait changer la valeur de l'item associé à cette clé à chaque itération de la boucle.

j'ai créé une propriété!

c'est comme une variable c'est elle qui vérifie l’existence du dictionnaire!

Get lecture let écriture!

Code:

---

1 2 3 4

Property Get Assigner(v As String) As Variant If TypeName(dicReg) = "Nothing" Then Set dicReg = CreateObject("Scripting.Dictionary") Assigner = dicReg(v) End Property

---

Code:

---

1 2 3 4

Property Let Assigner(v As String, Value As Variant) If TypeName(dicReg) = "Nothing" Then Set dicReg = CreateObject("Scripting.Dictionary") dicReg(v) = Value End Property

---

ici on va lire Get Assigner(date) +1 et on vas stocker le résultat dans Let Assigner(v As String, Value As Variant)

Code:

---

1 2 3 4 5 6 7

Sub test() Set dicReg = Nothing For i = 1 To 10 Assigner(Date) = Assigner(Date) + 1 Next Debug.Print Assigner(Date) End Sub

---

Pièce jointe 353112

Citation:

---

Petite clarification, en faite mon problème vient surtout du fait que sur cette instruction :

---

relis le poste de Patrick! (Salut Patrick)

Si j'ai bien compris l'erreur vient du fait que j'ai inversé clé et item dans mon programme c'est bien ça ?

Lorsque que j'initialise mon dictionnaire je dois définir une clé stable, ici la concaténation de tabJour et tabReg puis je peux modifier la valeur l'item à travers cette clé en utilisant dicReg.Item(tabJour(jour) & tabRegion(k)) = unevaleur c'est bien ça ?

Pièce jointe 353146

voila ce que tu fais!

Super merci pour l'explication, j'ai réussi à faire ce que je voulais !

Merci à toi pour tes réponses et ta disponibilité.


Solown