Enlever les doublons d'une combo ou d'une liste
Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 010 fois - Téléchargée 61 fois
Contenu du snippet
LA liste ou la combo doivent être triée donc la propriété Sorted à true.
Ma liste s'appelle list1...
La liste peut être remplacer par une comboBox.
Avec ce code aucune génération d'erreur numéro 5!!!
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
- Enlever les doublons d'une combo ou d'une liste
- Enlever les doublons sql ✓ - Forum - SQL
- Enlever doublon dans une requête mais avec 4 champs ✓ - Forum - VB.NET
- Enlever ou supprimer les doublons dans ma combobox ✓ - Forum - Visual Basic 6
- Enlever doublons ✓ - Forum - VB.NET
- Supprimer les doublons sql oracle - Guide
18 déc. 2010 à 18:58
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
20 déc. 2007 à 07:32
4 avril 2006 à 17:03
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
10 févr. 2006 à 09:26
5 févr. 2002 à 09:02
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.