quelqu'un peut il m'aider ? j'ai vérifié et revérifié mais ma combo ne se rempli

Question

Voici mon code si qq un peut m'aider a voir ce qui ne va pas &#231;a serait gentil merci!!
ma comboproduit se remplit mais ma combomachine qd j'ai s&#233;lectionn&#233; un produit est vide mes chemins sont corrects!!

'Option Explicit
Dim TypeProduit As String
Dim Feuil As String
Dim CelluleDepart As String
Dim i As Byte
Dim Liste1 As String
Dim a As String
Dim chemin As String


Private Sub Form_Initialize()
cmbProduit.AddItem "Copieur"
cmbProduit.AddItem "Fax"
cmbProduit.AddItem "Imprimante"
cmbProduit.AddItem "Plotter"
cmbProduit.AddItem "Scanner"
cmbProduit.AddItem "Appareil photo"
cmbProduit.AddItem "Solution"


End Sub


Private Sub cmbProduit_Change()


Select Case cmbProduit.Value
Case "Copieur"
Call Remplir(TypeProduit:="Copieur", Feuil:="Feuil1", CelluleDepart:="A1", chemin:="C:\ACE\Copieur1.xls")
Case "Fax"
Call Remplir(TypeProduit:="Fax", Feuil:="Feuil1", CelluleDepart:="A1", chemin:="C:\ACE\Fax.xls")
Case "Imprimante"
Call Remplir(TypeProduit:="Imprimante", Feuil:="Feuil1", CelluleDepart:="A1", chemin:="C:\ACE\Imprimante.xls")
Case "Plotter"
Call Remplir(TypeProduit:="Plotter", Feuil:="Feuil1", CelluleDepart:="A1", chemin:="C:\ACE\Plotter.xls")
Case "Scanner"
Call Remplir(TypeProduit:="Scanner", Feuil:="Feuil1", CelluleDepart:="A1", chemin:="C:\ACE\Scanner.xls")
Case "Appareil photo"
Call Remplir(TypeProduit:="Appareil photo", Feuil:="Feuil1", CelluleDepart:="A1", chemin:="C:\ACE\Appareil photo.xls")
Case "Solution"
Call Remplir(TypeProduit:="Solution", Feuil:="Feuil1", CelluleDepart:="A1", chemin:="C:\ACE\Solution.xls")


End Select
End Sub


Public Sub Remplir(TypeProduit, Feuil, CelluleDepart, chemin)


On Error GoTo Suite:
Workbooks.Open FileName:="" & chemin
Suite:
For i = 1 To Range("" & CelluleDepart).End(xlDown).Value
Liste1 = Workbooks("" & TypeProduit).Sheets("" & Feuil).Cells(i, 1).Value
cmbMachine.AddItem "" & Liste1
Next


End Sub

Merci pour votre aide

jpleroisse · Answer

Si ton code rempli bien ta Liste1, ce code doit fonctionner.

For i = 0 To Liste1.ListCount - 1
If Liste1.ListCount > 1 Then
cmbMachine.AddItem "" & Liste1.List(i)
End If
Next i

jpleroisse

kobejul08 · Answer

non justement ma liste 1 n'est pas remplie ... mais je comprend pas pq &#231;a devrait fonctionner!!
Sinon si tu as un mail et que tu es compatible vb6 je veux bien tout t'envoyer??

jpleroisse · Answer

Essaye d'expliquer un peu mieux le probl&#232;me. Pour moi si je comprend bien, tu veux copier dans une listebox les donn&#233;es qu'il y a dans des cellules pour ensuite les transf&#233;rer danss un combobox. est-cel&#224; ??

jpleroisse

kobejul08 · Answer

voil&#224; 

dans ma premi&#232;re combobox j'ai ceci: 
Private Sub Form_Initialize()
cmbProduit.AddItem "Copieur"
cmbProduit.AddItem "Fax"
cmbProduit.AddItem "Imprimante"
cmbProduit.AddItem "Plotter"
cmbProduit.AddItem "Scanner"
cmbProduit.AddItem "Appareil photo"
cmbProduit.AddItem "Solution"


End Sub

Elle se remplit ensuite en fonction du choix de cettre premi&#232;re combobox appel&#233; cmbproduit
une deuxi&#232;me doit se remplir a partir d'un fichier excel dont le chemin est marqu&#233; si dessus
:"C:\ACE\Copieur1.xls"
et ainsi de suite mais seulement cette 2eme combobox appel&#233; cmbMachine ne se remplit pas qd je compile je comprend pas pq ?il n'y a pas de message d'erreur ni rien!!
Peux tu m'aider?

jpleroisse · Answer

Tu parle de compiler, tu es en VB6, je pensais que c'&#233;tait du VBA, si c'est en vb6 il y a de forte chance pour que ce soit au chargement de l'application que le prg ne trouve pas le fichier &#224; ouvrir, j'ai d&#233;j&#224; eu ce probl&#232;me avec Access et dans ce cas je transfert mon fichier dans Vb, j'indique le chemin et je compile.

jpleroisse

kobejul08 · Answer

ah oui, peut-&#234;tre je sais pas ... mais comment dois je faire pour transf&#233;re mon fichier dans Vb ?

Quelqu'un peut il m'aider ? j'ai vérifié et revérifié mais ma combo ne se rempli

6 réponses

Discussions similaires