Private Sub Lbx_Enregist_Click()
'
Dim FullName$, FirstName$, LastName$
Dim Ligne As Long
Dim Code As String, TempsTravail As String
Application.ScreenUpdating = False
' On identifie FullName
FullName = Me.Lbx_Enregist.Value
' On extrait le nom de famille avant l'espace
LastName = Split(FullName, Chr(32))(0)
' On extrait le prénom après l'espace
FirstName = Split(FullName, Chr(32))(1)
' On récupére la ligne du Tableau Structuré
Ligne = Application.Match(FullName, Range("t_Noms[Salarié]"), 0)
' On récupére le code
Code = Range("t_Noms[Code agent]")(Ligne)
' On récupère le temps de travail
TempsTravail = Range("t_Noms[Contrat horaire]")(Ligne).Text
' On affiche les résultats dans les TextBox concernées
Me.TextBox1.Value = LastName ' Nom
Me.TextBox2.Value = FirstName ' Prénom
Me.TextBox3.Value = Code ' Code
Me.TextBox5.Value = TempsTravail ' Contrat horaire
End Sub