Dim.Reichart
XLDnaute Occasionnel
Bonjour à tous,
J'ai un souci avec mon code que voici:
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.
J'ai un souci avec mon code que voici:
VB:
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 EtpCe 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.