Discussion :

[Solown]

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 :

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

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 :

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

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

[patricktoulon]

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

Code :

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

dico("toto")=x

tu ne peut pas faire

Code :

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

dico("toto"+x")=x

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

[Invité]

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

[Solown]

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 :

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

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.

[Invité]

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 lectuer :

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

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 écriture :

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

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 :

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

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

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

relis le poste de Patrick! (Salut Patrick)

[Solown]

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 ?

[Invité]

voila ce que tu fais!

[Solown]

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

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


Solown