Discussion :

[Shadow5]

Bonjour tout le monde,

J'ai un problème au niveau du remplissage de certaines combobox. En l'occurrence la combobox "Cable".

Ma combobox se remplit bien, mais je ne parviens pas à limiter aux données que je veux en un seul exemplaire.

Si vous avez des suggestions ou des bons tuyaux, je suis preneur.

Cordialement.

PS : si vous avez des suggestions pour simplifier ce que j'ai fait, je suis preneur aussi

[Invité]

Bonjour

Déjà, explique nous de quelle manière tu remplis tes combobox. Code à l'appui. D'où viennent tes données.

Starec

[Shadow5]

Le code est le suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Cable_Click()
Cable.Clear
Cable.AddItem "Conducteurs et câbles multiconducteurs", 0
Cable.AddItem "Câbles multiconducteurs", 1
Cable.AddItem "Câbles monoconducteurs", 2
 
While Cable.ListIndex = 2 Or Cable.ListIndex = 1 Or Cable.ListIndex = 0
    Cable.RemoveItem 3
Wend
 
End Sub

J'(ai essayé de télécharger le fichier, mais il n'y a pas moyen

[Shadow5]

C'est, bon, je crois je j'ai trouvé la cause et comment y remédier.

[Invité]

C'est, bon, je crois je j'ai trouvé la cause et comment y remédier.

Tant mieux, mais ce serait bien de faire partager les autres membres de la résolution de ton problème, au cas où ils auraient le même soucis.

Starec

[Shadow5]

au début, je pensais que ce code pouvait fonctionner. Mais je me suis rendu compte que lorsque je faisais :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Cable_Click()
 
if Cable.listIndex=-1 then
Cable.AddItem "Conducteurs et câbles multiconducteurs", 0
Cable.AddItem "Câbles multiconducteurs", 1
Cable.AddItem "Câbles monoconducteurs", 2
End If
 
End Sub

Je gardais aussi des erreurs.

C'est pourquoi je suis en train de comprendre le modèle de Shyroad. pour un remplissage correct quelque soit la situation.