Problème ajout dans collection

Bonjour,

J'essaye d'ajouter des éléments dans une collection de la façon suivante :

Code:

---

1 2 3 4 5 6 7 8 9

For Module1.n = 0 To UBound(TAB) If TAB(n) = Critere Then On Error GoTo SkipAdd Collec.Add(TAB(n), TAB(n)) SkipAdd: On Error GoTo 0 End If   Next

---

Malgré, mon "SkipAdd", j'obtiens l'erreur suivante :"L'ajout a échoué. Une valeur de clé en double a été fournie."

Quelqu’un aurait-il une solution?

D'avance merci.

il aurait judicieux de préciser quel type de collection
si c'est un dictionary, il n'accepte pas d'avoir plusieurs fois la même clé, le hashset l'autorise je crois

Hello,
Je ne sais pas ce que tu veux faire exactement, mais à la lecture de ton code, quelques remarques me viennent à l'esprit :
1- n'utilise pas "on error" mais plutôt l'instruction try-catch-finally pour gérer les erreurs ;
2- utilise la méthode ContainsKey() pour tester si un dictionnaire contient déjà une clé ;
3- n'utilise pas de dictionnaire si tu veux juste une collection mais une liste List(Of T), cela ne sert à rien de faire un dictionnaire dont la clé et la valeur sont identiques !

Il se peut aussi que suivant ce que tu veux faire, tu puisses obtenir le même résultat en une ligne en utilisant linq... mais pour ça, il nous faut plus de détail sur ce qu'est TAB et à quoi va servir Collec.

Oui tout à fait il s'agit bien de ce genre de collection, c'est pour cela que lorsque la routine tente d'ajouter une clé déjà présente, et donc qu'une erreur se produit, je m'attends à ce que la ligne soit sautée grâce à :

Code:

---

On Error GoTo SkipAdd

---

Mais peut-être que je m'y prends mal.

Donne-nous plus de détails sur Tab et Collec (cf mon message précédent), pour qu'on puisse de proposer une solution appropriée.

on utilise pas les erreurs quand on peux éviter
if not dico.containskey(laclé) then dico.add

de plus comme précisé par plume13, il ne faut pas utiliser on error goto ...

En fait je cherche à créer une liste sans doublons à partir d'un tableau.
J'ai opté pour la seconde solution qui fonctionne très bien (Je pense que LIST(of T) ne m'aurait pas permis d'éviter les doublons.)

Code:

---

1 2 3 4 5 6 7

For Module1.n = 0 To UBound(TAB) If TAB(n) = Critere Then If Not Collec.Contains(Tab(n)) Then Collec.Add(TAB(n), TAB(n)) End If End If Next

---

J'éviterai également d'utiliser On Error ... (vieux réflexe de VBA).

Merci beaucoup pour vos réponses

A bientôt.

Dans ce cas, pas la peine de réinventer la poudre, Distinct en linq le fait très bien...

Je ne connaissais pas du tout linq, je vais donc étudier le sujet.

Merci encore.