Méthode ADD du dictionnary et recordset

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:

---

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.

Bonjour,
en soit un recordset est un dictionnaire que veux tu faire avec!

Code:

---

1 2	K=Position_Operation_Dic.keys test = Position_Operation_Dic(k(0))

---

1- le recordset c'est pour récupérer les données de ma connexion avec un classeur fermé
2- le dictionnaire me permet de rassembler un bon nombre de données selon une logique qui va me permettre de les manipuler facilement

Je en sais pas si j'ai répondu à votre question.

Code:

---

1 2 3

Rs.Filter = "[Champ]='toto'" Rs.Sort = "[Champ]=DECS" Rs.Find "[Champ]='toto'"

---

ceci ne me suffit pas, puisque je manipule plusieurs recordsets(plus de 10 fichiers excel fermé), qui alimentent 3 dictionnaires :
un avec les quantités, un autre avec les numéros de compte et un troisième avec la nature du compte

indépendamment de ça ,je tes donné la raison pour la quelle tu ne voyais pas ton dictionnaire au poste "2!

j'ai essayé la modification suivante et ça a marché.

Code:

---

1 2 3

quantité = My_Recordset_FERME!quantity   Position_Operation_Dic.Add compt, quantité

---

merci bcp.

Code:

---

1 2 3 4 5 6 7

Compt=0 Position_Operation_Dic(Compt) =My_Recordset_FERME("quantity").value Debug.print Position_Operation_Dic(0)   Compt=1 Position_Operation_Dic(Compt) =My_Recordset_FERME("quantity").value Debug.print Position_Operation_Dic(1)

---