Discussion :

[gaet76]

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.

[geogeo70]

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

[joe.levrai]

Bonjour,

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

[gaet76]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gaet76]

Re bonjour,

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

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

J'ai donc mis ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.