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

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

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.