Discussion :

[CaptainMeta]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonsoir,
Regardes comment tu as écrit listbox1_click()

[CaptainMeta]

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)

[CaptainMeta]

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