Re : Suppression des doublons et somme des valeurs
Merci Habitude,
J'ai un probleme d'execution du programme :
Dans ton fichier quand j'ai rajouté des lignes de données (~2000) et quand je demande l'execution , il y a un message d'erreur :
"Erreur d'execution 13"
"Imcompatibilité de type"
Qui apparait à la 6e ligne du code principal ( celui de la feuille 1)
dans la boucle
----
For i = 2 To Range("A65536").End(xlUp).Row
Set r = Range("C" & i)
d.Add r, r.Offset(, -2), r.Offset(, 2), r.Offset(, 4), Me
Next i
-------
j'ai essayé de trouvé une solution mais je ne connais pas grand chose à la programmation.
Comment peut-on corriger cette erreur ou est-ce un probleme de paramètre du code ?
Slts