Discussion :

[sasuma]

Bonjour,

j'ai un pb de rajout d'un élément dans une collection (en VB6), j'ai l'erreur " cette clé est déjà associée à un élément de cette collection"

Si j'ai bien compris il faut créer une nouvelle clé pour cet élément, je ne vois pas comment se fait cette création?????

ma ligne de code qui permet d'ajouter mon nouvel élément est :

Code :

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

moDependOfScroll.Add elt.Libelle & "(" & elt.filtre & ")", "K" & elt.code

"K" est une string qui permet de convertir mon code en chaine de caractère.

Merci.

[SfJ5Rpw8]

et tu sur que ton elt.Code... à bien évoluer entre 2 insertion

sur la fenêtre de debug.. clique sur "Débogage" puis passe le curseur sur ta variable elt.code histoire de connaître son contenu ...

[Delbeke]

De plus, pour info, il n'est pas necessaire de mettre le K

Code :

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

moDependOfScroll.Add elt.Libelle & "(" & elt.filtre & ")", Cstr(elt.code)

La fonction Cstr assurera que la clé sera bien un string

[sasuma]

ah oui c'est vrai dans elt.code j ai le dernier élément de la collection!! ca n'a pas meme pas ajouter mon élément!! comment je peux corriger cela svp.

[SfJ5Rpw8]

ah oui c'est vrai dans elt.code j ai le dernier élément de la collection!! ca n'a pas meme pas ajouter mon élément!! comment je peux corriger cela svp.

en changeant la valeur d'elt.code ... pour chaque éléments ...

et tu nous as toujours pas dis comment été renseigné ton elt.code !!

[ThierryAIM]

Si j'ai bien compris il faut créer une nouvelle clé pour cet élément, je ne vois pas comment se fait cette création?????

en utilisant le Count de la Collection, pardi ! (moDependOfScroll.Count)

[Delbeke]

L'utilisation de la propriété count de la collection peut mener à une impasse si des éléménts doivent être supprimés dans la collection (et d'autres ajoutés après la supression). Sauf si c'est le dernier. Si tu n'as pas besoin de retrouver un element précis de la collection par une clé, n'utilises pas de clé lors de l'ajout, tout simplement.

Code :

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

moDependOfScroll.Add elt.Libelle & "(" & elt.filtre & ")"

Tu pourras accèder au ième element et lister tous les element de la collection soit par boucle (deux type de boucle

Code :

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

1
2
3
  For I=1 To moDependOfScroll.count 
    set Obj = moDependOfScroll(ipnt)
  Next

Ou

Code :

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

1
2
3
  For Each Ojb In moDependOfScroll
    '...
  Next