T
totof
Guest
bonjour,
G un UserForm avec le code suivant:
Private Sub Userform_Initialize()
With ListBox1
.AddItem "1"
etc... ->10
End With
End Sub
Private Sub Valider_Click()
Select Case ListBox1.ListIndex
Case -1: MsgBox "Sélectionné un Choix."
Case 0: Call choix0
Case 1: Call choix1
Case 2: Call choix2
Case 3: Call choix3
Case 4: Call choix4
etc...->9
End Select
Unload Me
End Sub
G bien mes choix dans la ListBox, mais quand j'en choisi 1, rien ne se passe, c'est à deveniir fou. quelqu'un voit-il une solution ?
Merci
totof
G un UserForm avec le code suivant:
Private Sub Userform_Initialize()
With ListBox1
.AddItem "1"
etc... ->10
End With
End Sub
Private Sub Valider_Click()
Select Case ListBox1.ListIndex
Case -1: MsgBox "Sélectionné un Choix."
Case 0: Call choix0
Case 1: Call choix1
Case 2: Call choix2
Case 3: Call choix3
Case 4: Call choix4
etc...->9
End Select
Unload Me
End Sub
G bien mes choix dans la ListBox, mais quand j'en choisi 1, rien ne se passe, c'est à deveniir fou. quelqu'un voit-il une solution ?
Merci
totof