Alexandre_13
XLDnaute Nouveau
construire un programme de a à z
Bonjour tout le monde!
Malgrès de nombreuses recherche sur le forum, je reste bloqué au début de mon projet.
j'essai depuis plusieur jour d'ouvrir d'autres usf a partir des éléments de ma listbox. Je vous donne ce que j'ai fait .bon la première partie fonctionne mais lorsque je sélectionne un engin dans ma liste il ne se passe rien.bon je vous remerci et espère que l'un de vous pouras m'aider, à bientôt.
Option Explicit
Private Sub UserForm_Initialize()
ListBox1.RowSource = ("Engins!Les_engins")
ListBox1.ListIndex = -1
ListBox1.MultiSelect = fmMultiSelectExtended
End Sub
Private Sub ListBox1_click()
Dim ListIndex("Hyster") As String
ListIndex("Hyster") = "userform2"
VBA.UserForms.Add ListIndex.Show:
End Sub
Bonjour tout le monde!
Malgrès de nombreuses recherche sur le forum, je reste bloqué au début de mon projet.
j'essai depuis plusieur jour d'ouvrir d'autres usf a partir des éléments de ma listbox. Je vous donne ce que j'ai fait .bon la première partie fonctionne mais lorsque je sélectionne un engin dans ma liste il ne se passe rien.bon je vous remerci et espère que l'un de vous pouras m'aider, à bientôt.
Option Explicit
Private Sub UserForm_Initialize()
ListBox1.RowSource = ("Engins!Les_engins")
ListBox1.ListIndex = -1
ListBox1.MultiSelect = fmMultiSelectExtended
End Sub
Private Sub ListBox1_click()
Dim ListIndex("Hyster") As String
ListIndex("Hyster") = "userform2"
VBA.UserForms.Add ListIndex.Show:
End Sub
Dernière édition: