Qui peut m'aider?svpRésolu

Question

Voici ou j'en suis dans mon code!! : Private Sub Form_Load() a = ToujoursVisible(FrmMain, PremierPlan) Set monxl2 = New Excel.Application monxl2.Workbooks.Open "T:\ACE" & "\produit" & ".xls" Me.cmbProduit.AddItem ("") For i = 2 To 100 monxl2.Cells(i, 1).Select If monxl2.Selection.Value = "" Then Exit For End If Le fichier excel produit.xls est ainsi = ---- Produit, Chemin, ---- Copieur, C:\ACE\Copieur.xls, ---- Fax, C:\ACE\Fax.xls, ---- Imprimante, C:\ACE\Imprimante.xls Et j'aimerais que quand dans ma combo list on prend copieur que les types de copieur apparaise dans la combo type via le fichier maintenant copieur.xls!! QQ un peut il m'aider?Merci

nostra78 · Accepted Answer

Essai avec &#231;a
Private Sub ComboBox1_Change()
If ComboBox1.Value = "Copieur" Then
For i = 1 To Range("A1").End(xlDown).Value
Dim ListeCopieur As String
ListeCopieur = Workbooks("Copieur").Sheets("Feuil1").Cells(i, 1).Value
ComboBox2.AddItem "" & ListeCopieur
Next
End If
End Sub

kobejul08 · Answer

Merci Nostra, pertinent mais le seul probleme c'est que j'aurai voulu afficher donc tous les types de copieurs dans la combotype sans passer par une private sub c'est possible &#231;a???

nostra78 · Answer

Tu veux faire quoi (passer par quoi) donne des pr&#233;cisions.

kobejul08 · Answer

j'ai une comboproduit avec dedans :Copieur, Imprimante, plotter...
Et j'aimerais dans ma comboType donc celle juste en dessous que quand Dans ma cmbProduit je choisis Copieur que ma mbtype m'affiche tout les types de copieurs et pareil pour les imprimantes etc... assez clair ou il y a que moi qui me comprend lol?
Merci

nostra78 · Answer

Ben le code que je t'ai donn&#233; fait &#231;a. Tu es oblig&#233; de passer par une proc&#233;dure &#233;venementielle. Je vois pas comment tu peux faire autremant. Si c possible : &#231;a m'int&#233;resse aussi.

kobejul08 · Answer

ben oui!!! je pense que &#231;a existe j'en ai d&#233;j&#224; parl&#233; ult&#233;rieurement avec qq un ...
Donc pour toi tu ne vois que cette solution l&#224; de faire plusieur private sub pour chaque type alors?

nostra78 · Answer

Tu fais des private sub pour chaque et tu r&#233;alises un call Liste (type:=Copieur(par exemple))

Et dans ta proc&#233;dure Liste tu arranges le code que je t'ai mis. C pas tr&#232;s dur &#224; fair si t'as des probl&#232;mes. Renvoi un msg

kobejul08 · Answer

merci bcp et si j'arrive a trouver le code dont je te parlais je te contacte? tu as un mail?

nostra78 · Answer

Ouep : nostralodo@aol.com

kobejul08 · Answer

ah oui encore une chose Nostra, sais tu comment masquer des lignes text blanche donc non remplie...
Je t'explique dans ces types de copieurs ils ont jusqu'a 34 options et elles s'afficheront chaque fois sur une ligne texte mais quand il y en a que 20 par exemple comment masquer les lignes blanches? je sais pas si je suis pr&#233;cis?

nostra78 · Answer

J'ai pas tout compris. Parles tu d'un fichier text si oui tu utilises les codes ascii

kobejul08 · Answer

je t'envoie un mail avec ma form et tu comprendras mieux ok?

Qui peut m'aider?svp

12 réponses

Discussions similaires