Enlever les doublons d'une combo ou d'une liste
Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 808 fois - Téléchargée 59 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 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 doublon oracle - Guide
- Algorithme supprimer doublons tableau - Forum - C
Commentaires
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
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
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.