0/5 (1 avis)
Snippet vu 13 247 fois - Téléchargée 47 fois
'Vire les doublons dans une collection Sub removeDuplicates(ByRef aCollection As Collection) Dim tmp As Object Dim i, j As Integer i = 1 Do While i <= aCollection.Count() tmp = aCollection.Item(i) For j = i + 1 To aCollection.Count() If tmp = aCollection.Item(j) Then aCollection.Remove(j) i -= 1 Exit For End If Next i += 1 Loop End Sub
8 févr. 2006 à 15:39
Pourquoi ne pas dupliquer le tableau dans un Hashtable
et d'utiliser la proprieter ContainsKey !
@+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.