Sélection dans un UserForm

[totof]

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

 

[Robert]

Bonsoir Totof, bonsoir le forum,

J'ai refait un fichier pour une simulation de ton cas et tout fonctionne parfaitement (voir pièce jointe). Je n'ai donc pas vraiment d'explication pour ton bug.

Dans ton Userform, double-clique sur le bouton "Valider" et vérifie bien que cela te renvoie au code Private Sub Valider_Click()... Peut-être aussi une faute dans le nom de la macro choix_0[ au lieu de choix0...

Bon courage, à plus,

Robert