Enlever les doublons d'une combo ou d'une liste

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 784 fois - Téléchargée 59 fois

Commenter

Contenu du snippet

LA liste ou la combo doivent être triée donc la propriété Sorted à true.

Ma liste s'appelle list1...

Source / Exemple : 


For I = 0 To List1.ListCount - 1
            If List1.List(I) = List1.List(I + 1)And List1.List(I) <> "" Then 
                    List1.RemoveItem (I)
                    I = I - 1
            End If
Next

Conclusion :


La liste peut être remplacer par une comboBox.
Avec ce code aucune génération d'erreur numéro 5!!!

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_FanLaBise
Messages postés
19
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
24 janvier 2011
 -
Je pense que cette boucle serait un peu mieux...

Private Sub SupDblLstListe()
For i = 0 To LstListe.ListCount - 1
If i < LstListe.ListCount - 1 Then
If LstListe.List(i) = LstListe.List(i + 1) Then
LstListe.RemoveItem (i)
i = i - 1
End If
End If
Next
End Sub
Signaler
oliv_def
Messages postés
14
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 décembre 2007
 -
L exemple avec le combobox c est possible :-) ?
Signaler
virge54
Messages postés
1
Date d'inscription
jeudi 16 mars 2006
Statut
Membre
Dernière intervention
16 juin 2006
 -
Bonjour,
j'ai une erreur àl'execution du type Index du tableau de propriétés incorrect (erreur 381)
qqun a déjà eu ce problème
merci c'est urgent
Signaler
cs_the touch
Messages postés
5
Date d'inscription
mercredi 6 juillet 2005
Statut
Membre
Dernière intervention
30 avril 2007
 -
pas trés efficase mais cune idée
Signaler
cs_Benz
Messages postés
196
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 juin 2007
 -
Pour Cumu : si le combo est classé par ordre alphabétique (comme c'est le cas), les doublons devraient forcément se suivre non ?
Afficher les 7 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_ITALIA)