Bonsoir Dop, Minick, le Forum
Désolé des délais mais je n'ai pas eu beaucoup de temps dispo.
La méthode New Collection est très pratique pour filtrer les doublon. En effet elle a cette particularité d'utiliser une Key d'index d'enregistrement qui doit être forcément unique....
Hors, lors d'une Collection où l'on force l'indexation avec l'item lui même comme ceci :
For i = LBound(T) To UBound(T)
TheList.Add T(i, 1), T(i, 1) '<<<<<<<< Le Second est l'index KEY
Next
Si un item est en double dans sa Clef on génère immédiatement une erreur 13 "incompatibilité de type" puisqu'il y a une clef en double, donc en "sautant" l'erreur comme ceci on passe à l'item suivant et donc on n'a pas de doublon dans la collection.
For i = LBound(T) To UBound(T)
On Error Resume Next
TheList.Add T(i, 1), T(i, 1)
Next
C'est Hurricane qui a introduit cette méthode dans le Forum il y a un bail, à l'époque j'avais trouvé ceci surprenant, depuis je l'utilise dans multes programmes.
Voir ce Fil et autres démos Lien supprimé
Par contre pour ton problème de message d'erreur Dop, c'est quoi exactement et sur quelle ligne le code est surlignée ? Et, of course, tu devrais préciser ta Version d'Excel ? et de Windows ?
Et aussi vu qu'aucune erreur n'avait été reportée lors du "vernissage" de cette démo Lien supprimé parlons-nous bien du fichier démo d'origine ou d'une version que tu aurais tenté d'adapter ?
Bonne Soirée à Tous et Toutes
@+Thierry