[VB6 - VBA]probléme de remplissage d'une combobox VBARésolu

Question

Bonjour a tous, 

je suit actuellement apprenti en charge de la création d'un outils de gestion des stocks

j'ai des bases correctes en VBA

mon problème est le suivant, j'ai un userform avec trois combobox, la première se remplie a l'ouverture de mon userform, la deuxième a la modification de la première et la troisième est censé se remplir a la modification de la deuxième.
Or cette troisième comboox ne se remplit que si la valeur de la deuxième combobox est numérique.

ci joint le code

Private Sub ComboBox2_Change()
Dim i As Integer, j As Integer
i = 1
hab.ComboBox3.Clear
Do While Not IsEmpty(Feuil2.Cells(i, 1))
i = i + 1
Loop
i = i - 1
For j = 1 To i
If Feuil2.Cells(j, 2).Value hab.ComboBox2.Value And Feuil2.Cells(j, 1).Value hab.ComboBox1.Value Then
hab.ComboBox3.AddItem Sheets("habillement").Cells(j, 3)
End If
Next
End Sub

cs_MPi · Accepted Answer

Essaie en changeant les .Value par .Text


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

gessm91 · Answer

sachant que la Feuil2 correspond a sheets("habillement") et que l'userform s&#8217;appelle hab

j'avait oublié la question désolé.

Pouvez vous me dire ou mon code pêche SVP ?

Cordialement

PS: le code pour remplir la seconde combobox est sensiblement le même mis et il fonctionne.

cs_MPi · Answer

Bonjour,

Or cette troisième comboox ne se remplit que si la valeur de la deuxième combobox est numérique

Peux-tu réexpliquer la partie qui ne fonctionne pas ?
Quel est le rapport avec le fait que la valeur soit numérique ou non ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

gessm91 · Answer

bonjour,

le problème est bien la c'est que la combobox3 refuse de se remplir si la valeur dans la combobox2 ne contient pas de caractère alphabétique.

exemple: si la valeur dans la combobox2 est "XL" ou "T2" la combobox3 va se remplir, mais si c'est  juste "53" elle ne se remplie pas

gessm91 · Answer

Bonjour,

Merci beaucoup, ça marche !

[VB6 -> VBA]probléme de remplissage d'une combobox VBA

5 réponses

Votre réponse

Discussions similaires