Discussion :

[needtoknow]

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.

[Invité]

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

Code :

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

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

[needtoknow]

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.

[Invité]

Code :

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

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

[needtoknow]

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

[Invité]

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

[needtoknow]

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

Code :

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

1
2
3
       quantité = My_Recordset_FERME!quantity
 
        Position_Operation_Dic.Add compt, quantité

merci bcp.

[Invité]

Code :

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

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)