Problème listbox_click() inactive

Bonjour,

Me revoilà avec une nouvelle question : j'ai une listbox et 2 textbox. Quand je clique sur ma listbox (listbox1), j'aimerai que mes textbox affichent les données associées à la sélection. Je l'ai fait dans un autre usf mais là ça ne marche pas. En fait je me suis aperçu que la méthode n'était pas activée lorsque je clique sur la listbox... Je ne comprends pas du tout pourquoi! :(

Voila le code de mon usf avec l'initialisation et la méthode listbox1_click() :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub ListBox1_Click() If Me.ListBox1.ListIndex < 0 Then msgbox "Aucun poste n'est sélectionné", vbOKOnly + vbInformation Exit Sub End If   etimepTB.Value = Range("Postes").Cells(Me.ListBox1.ListIndex + 1, 3) stimepTB.Value = Range("Postes").Cells(Me.ListBox1.ListIndex + 1, 2) End Sub   Private Sub userform_initialize() If Application.WorksheetFunction.CountA(Range("Postes_Postes")) = 0 Then msgbox "Aucun poste n'a été ajouté" Exit Sub End If ListBox1.List() = Range("Postes_Postes").Value End Sub

---

Auriez vous une idée?

Merci d'avance :)

Thomas

Bonsoir,
Regardes comment tu as écrit listbox1_click()

C'est le nom qui s'écrit automatiquement lorsque je double clique sur la liste dans l'éditeur de l'usf. Et c'est aussi le même que celui de l'autre usf.. C'est pour ça que je ne vois pas du tout où ça plante :?

Edit : je viens de comprendre d'où venait ta remarque, j'avais mis ListBox1._Click() en recopiant au lieu de Listbox1_Click() comme dans mon programme ;) (je viens de le modifier dans mon premier post)

C'est bon! C'était l'option multiselect qui était activée et qui du coup faisait planter le truc! :)