Problème remplissage Combobox à partir d'un listview

Salut le forum,

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

Code:

---

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.

bonsoir,

je vois que l'on insère un projet si listindex=-1 mais au 2ème listindex doit avoir changé...? il faudrait savoir en exécutant pas à pas quelle ligne de la macro est en faute...?

cordialement

geogeo70

Bonjour,

en regardant ce que vaut la variable "projet" lorsque ça plante, et la valeur précédente, on devrait y voir plus clair

Bonjour,

Tout d'abord merci de vous pencher sur mon problème.

@geogeo70 ,

Effectivement j'ai oublié de préciser la ligne qui pose problème.

c'est le :

Code:

---

Me.CBProjet = Projet

---

@joe.levrai,

Quand i = 1 la valeur est B98² et quand i = 2 la valeur est B32.

Après j'ai essayé quelques choses :

_ Avant ce code j'ai mis un

Code:

---

Me.CBProjet.AddItem "Tous"

---

et pour le coup quand je fais ca, ca beugue quand i = 1 avec le meme message d'erreur.

_ J'ai essayé en enlevant la ligne qui pose problème mais pour le coup j'ai des doublons dans ma combobox mais j'ai pas l'erreur (normal).

_ J'ai essayé de mettre for i = 2 to ..., mais pour le coup j'ai l'erreur à la valeur d'après (B95).

_ J'ai essayé de charger les valeurs à partir de la feuille de calcul et toujours la meme erreur.


J'ai trouvé ce code sur internet en cherchant "Remplir combobox sans doublon" et les gars disent que ça marche bien.

J'ai plus trop d'idée :)

Edit :

Le fait que la combobox soit dans une frame peut il influer la dessus ? Nom de la frame FTrier

Re bonjour,

J'ai réussi à résoudre mon problème :yaisse3:

En fait c'est le style de ma combobox qui ne permettait pas de faire ça.

J'ai donc mis ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Me.CBProjet.Style = fmStyleDropDownCombo Me.CBProjet.Clear Me.CBProjet.AddItem "Tous" 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 Me.CBProjet.ListIndex = 0 Me.CBProjet.Style = fmStyleDropDownList

---

Et ca marche nickel.

Merci encore pour votre aide.