Salut le forum,

J'ai un léger problème pour le remplissage d'une combobox sans doublon.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
For i = 1 To Me.LVVeh.ListItems.Count
Projet = Left(Me.LVVeh.ListItems.Item(i).Text, InStr(Me.LVVeh.ListItems.Item(i).Text, " ") - 1)
    Me.CBProjet = Projet
    If CBProjet.ListIndex = -1 Then CBProjet.AddItem Projet
Next i
Le code marche bien pour la première valeur, mais quand la boucle arrive sur la deuxième valeur la j'ai un message :
"Erreur d’exécution 380: Impossible de définir la propriété Value. Valeur de propriété non valide."

Auriez vous une idée?

Merci par avance de votre aide.