Bonjour Laurent, le Fil, le Forum
Pour la petite histoire cette méthode 'New Collection' détournée pour ne construire qu'une liste sans doublon des Items a été introduite par 'Hurricane' dans le Forum XLD dans ce Fil : Lien supprimé
En résumé c'est assez simple, bien plus simple que de faire un algo pour trier puis ensuite éliminer les items en double...
Etape 1 = Compréhension du Principe
La méthode New Collection comporte deux champs virtuels :
Le premier l'Item Lui-Même
Le Second sa Clef unique d'enregistrement.
Cette clef ne peut être qu'unique ou bien nous buggons.
Etape 2 = Application détournée du Principe
En clair dans ce genre d'exercice, nous forçons pour rentrer en enregistrement :
l'Item en tant qu'Item
l'Item encore mais en tant que Clef d'enregistrement.
Par conséquent, VBA refusera catégoriquement d'ajouter un Item déjà contenu en Clef d'enregistrement.
Je pense que c'est assez clair, il suffit maintenant d'interpréter la syntax d'ajout de données dans une New Collection :
Data.Add CStr(Tablo(i, 1)),CStr(Tablo(i, 1))
La Partie Verte étant l'intégration en Collection de l'Item
La Partie Rouge étant l'intégration en Collection de la Clef Unique d'Enregistrement
Les deux parties séparées par une Virgule
A partir du moment où nous avons et connaissons ces éléments il suffit d'encadrer ces instructions par une gestion d'erreur 'Resume Next' et les doublons ne seront pas inclus dans notre Collection.
C'est souvent par des principes aussi simples comme celui-ci qu'un développeur s'évitera bien des lignes de codes qui en plus n'amélioreront en rien l'optimisation de la procédure.
Bon Dimanche
[ol]@+Thierry[/ol]
EDITION !!!
PS Ah zut c'était un exercice pour Hervé, ce n'était pas à moi de répondre, bon j'efface tout LOL !!!
Message édité par: _Thierry, à: 16/10/2005 12:28