XL 2016 RESOLUE :Objet collection et boucke

[sebastien450]

Bonjour,

Afin de compter des valeurs unique j'utilise un objet collection.
Seulement, il me met un message d'erreur quand je rentre à nouveau dans la boucle en indiquant que la clé de collection est déja attribuée, j'ai pourtant bien essayer de vider la collection via .remove ect ect mais cela ne fonctionne pas.

Merci

Sub compter_uniques()
fin2 = Feuil13.Range("A65536").End(xlDown).Row ' taille du tableau recherche

Dim unique As Collection
Set unique = New Collection
On Error Resume Next
For C = 12 To 13
deb = Feuil8.Cells(1, C).Value
fin = DateSerial(Year(Feuil8.Cells(1, C).Value), Month(Feuil8.Cells(1, C).Value) + 1, 0)

        For Each cel In Feuil3.Range("B2:B" & fin2)
        If cel.Value >= deb And cel.Value <= fin Then unique.Add cel.Value, CStr(cel.Value)
        Next cel
        On Error GoTo 0
MsgBox "Eléments uniques : " & unique.Count
Next C

End Sub

 

[patricktoulon]

bonjour
la ligne du add doit être précédée du on error resume next et immédiatement suivie du err.clear ou on error goto 0
en gros ton on error goto 0 doit être avant le next pour que la boucle puisse continuer en zappant l'erreur
😉