Private Sub Lst_Employ_Click()
'Vérifie si une ligne a été sélectionné
With Me
With .Lst_Employ
If .ListIndex <> -1 Then
'On récupère les valeurs de la ligne sélectionnée dans les TextBox
Me.Txt_Code.Value = .List(.ListIndex, 0)
Me.Txt_Nom.Value = .List(.ListIndex, 1)
Me.Txt_Prénom.Value = .List(.ListIndex, 2)
Me.Txt_Temps.Text = Application.Text(.List(.ListIndex, 3), "[h]:mm")
End If
End With
End With
End Sub