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.