Cette clé est déja utilisée (ajout dans une collection pour listbox)

[Dim.Reichart]

Bonjour à tous,
J'ai un souci avec mon code que voici:

With Worksheets("Viaduc de l'Arc")
Dim j as long, i as long, Unique as New Collection, Etp as range
set Unique = nothing
j = .Range("a3").End(xlDown).Row

    'Boucle sur la colonne A, crée une liste sans doublon
    For i = 3 To j
    On Error Resume Next
    Unique.Add .Cells(i, 1), CStr(.Cells(i, 1))
    On Error GoTo 0
    Next i
End With
    'Affiche la liste d'entreprises
    For Each Etp In Unique
    Me.ListBox1.AddItem Etp
    Next Etp

J'utilise la collection Unique pour lister mes items de la colonne A sans doublon, puis je remplis ma listbox avec les items de la collection.
Ce que je ne comprend pas, c'est qu'avant ça fonctionnait, et je n'ai pas touché cette partie du code, j'ai uniquement prolongé le programme dans un autre userform.
Maintenant, il me dit "Cette clé est déjà utilisée", alors que j'ai mis les On error (j'ai même ajouté le second alors que je n'en vois pas l'interêt, mais cela fait toujours la même erreur...).
Si vous saviez m'expliquer ce qui coince, cela me rendrait service.
Merci d'avance.

 

[Dim.Reichart]

Je viens d'anonymiser mon fichier, mais ca ne me semble pas forcement un bon plan, vu la quantité de procédures déjà créées (tout fonctionnait jusqu'à hier, lorsque j'ai ajouté le commandbutton3 de la 3e USF UsfEmp).
Le code cité précedemment se trouve dans l'UsfEtp, partie initialize.
Merci pour toute aide.

 

[Dim.Reichart]

Bonjour,
Est-ce que mon problème est insoluble, mal expliqué, autre?
Est-ce que le fichier ne convient pas?
Est-ce qu'il faut plus d'informations, explications, soudoyer a l'aide de pain au chocolat?
Bref, ça m'etonne de n'avoir aucune réponse depuis hier, même si je sais que vous n'êtes pas à ma disposition bien sur.

Merci d'avance pour toute aide, critique ou conseil, fut-il constructif ou non.

 

[BOISGONTIER]

Bonjour,

Le formulaire UsfEtp posté semble fonctionner normalement.

Boisgontier

 

[ChTi160]

Bonsour Dim.Reichart
je nr comprendd pas:
”' j ai uniquement prolongé le programme dans un autre userform.”
peut etre faut il reinitialiser Unique ,si autre utilisation！
non teste （pas d ordi）
jean marie
Edit : Bonsoir JB

 

[Dim.Reichart]

Merci a vous deux.
@BOISGONTIER du coup, je ne comprend pas pourquoi ca ne fonctionne plus chez moi. Je me suis inspiré de solutions trouvées sur ton site pour créer cette parties et d'autres aussi. Il me semble avoir appliqué tous les conseils et sécurités cités, mais je ne suis pas a l'abri d'un oubli...
@ChTi160 je ne me sers plus d'Unique une fois la listbox remplie, mais je l'initialise quand même en début d'USF (Unique=Nothing).
Je regarderais mieux lundi, j'essayerais de desactiver la 3e USF, vu que c'est à ce moment que cela a commencé a ne plus fonctionner...
Mais si vous avez d'autres théories ou explications, je suis preneur tout de même.

Merci pour le coup d'œil en tout cas.

 

[ChTi160]

Re
je pensais a
set unique ＝new collection
Enfin , pas evident（pas d ordi）
jean marie

 

[Dim.Reichart]

Bonjour,
@ChTi160 je le fais lors de la définition de variable, puis je la vide avec Set Unique= Nothing pour etre sur de ne pas avoir de "reste" des utilisations précédentes.
Est-ce que cela peut poser problème?

EDIT: Après reflexion, lors de la definition de variable, j'utilise Dim Unique as New Collection, et c'est sensiblement différent. Je teste cette solution ce soir, puis je reviens vers vous.

 

[Dranreb]

Bonjour.
À tout hasard vérifiez si vous n'avez pas coché "Arrêt sur toutes les erreurs" dans les options de récupération d'erreurs: ça rend inopérant les On Error Next.

 

[Dim.Reichart]

Merci Dranreb, c'était ça, je ne me souvenais pas l'avoir coché, mais c'était pour un autre fichier le mois dernier (EDIT: ça devait être la veille, vu que ça fonctionnait avant, bref).
Je passe en résolu, et je devrais revenir demain avec un autre souci...
Merci également aux autres d'avoir pris le temps de tester, chercher et réflechir.