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!!!
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.