Bonjour,

J'utilise un dictionnaire que je remplie avec les données récupérées d'un recordset, à l'aide de la méthode ADD.

Problème : a chaque ajout d'un élément, les anciens éléments sont remplacer par le nouveau élément.
les clès sont incrémenter, mais les éléments non.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Do While My_Recordset_FERME!client = CDbl(code_fond)
 
 
     'My_Recordset_FERME!client = CDbl(code_fond) And
 
        Position_Operation_Dic.Add compt, My_Recordset_FERME!quantity
 
        test = Position_Operation_Dic(0)
 
    compt = compt + 1
    My_Recordset_FERME.MoveNext
Loop
Exemple :

première itération :
compt =0, clé=0, élément=4
deuxième itération :
compt =1, clé=0, élément=50
compt=1,clé=1,élément=50

merci.