Discussion :

[Blencastreur]

Bonjour,

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

Code :

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

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.

[Pol63]

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

[plume13]

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.

[Blencastreur]

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 :

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

On Error GoTo SkipAdd

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

[plume13]

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.

[Pol63]

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 ...

[Blencastreur]

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 :

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

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.

[plume13]

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

[Blencastreur]

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

Merci encore.