Private Sub Lbx_Enregist_Click()
Dim FullName$, FirstName$, LastName$, CodeT, TempsTravail
Application.ScreenUpdating = False
On Error GoTo NonTrouvé
'On identifie FullName
FullName = Me.Lbx_Enregist.Value
'On extrait le Nom de famille avant l'espace
LastName = Séparation(FullName, 1)
'On extrait le Prénom
FirstName = Séparation(FullName, 0)
' 'On affiche les résultats dans des TextBoxs
With Sheets("Liste_agents")
Ligne = .Application.Match(FullName, [C:C], 0) ' N° de ligne
Me.TextBox1.Value = Séparation(FullName, 1) ' Nom
Me.TextBox2.Value = Séparation(FullName, 0) ' Prénom
End With
Me.TextBox3 = Me.Lbx_Enregist.List(, 1) ' Code
Me.TextBox5 = Me.Lbx_Enregist.List(, 2) ' Tps travail
Exit Sub
NonTrouvé:
MsgBox " Les nom et prénoms " & FullName & " n'ont pas été trouvés."
End Sub