Error 35602 key is not unique in collection

Bonjour à tous,

Je rencontre un problème avec mon.

tout fonctionnais correctement mais j'ai voulu changer un format en clng sur la recopie d'un textbox sur ma feuille de calcul, et puis je ne sais pas trop se qu'il s'est passer j'ai peut être fait une fausse manip, supprimer un argument, une lettre, ou peu être même que tout cela n'a rien à voir mais depuis cette modif j'ai une erreur qui revient dès que je veux lancer le test "error 35602 key is not unique in collection".

je ne vois vraiment pas de quoi cela peut venir, merci par avance pour votre aide.

Bonjour,

ListView3 > prend sa source dans la feuille "Mouvements" > soit dans le tableau ou dans le code > il est dit que le contenu de la colonne "Date" doit être des valeurs uniques (clé unique) ...

Or > lignes 8 et 9 ont la même date > d'où l'erreur ...

EDIT : il manque une virgule ...

Dans "AlimenteLv3" ...

    For Each c In f.Range("B8:B" & Lr)

        .ListItems.Add , , c  ' << ici, il faut 2 vigules entre Add et C 
        .ListItems(ligne).ListSubItems.Add , , c.Offset(, 0)
        .ListItems(ligne).ListSubItems.Add , , c.Offset(, 1)
        .ListItems(ligne).ListSubItems.Add , , c.Offset(, 2)

ric

Ahhhhh, bas ça ne m'arrange pas lol.

merci ça faisait un moment que je cherche d'où venait cette erreur

merci encore pour ton aide