Re,
Voici une possibilité de code dans ton USF de recherche par matricule
(code optimisé)
Private Sub ComboBox1_Change()
Dim vrech As Range, Ind As Integer
'je recherche dans la colonne B la valeur de la combo
Set vrech = Sheets("Fiche plan").Columns("B:B").Find(Me.ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
'si je trouve une valeur alors j'affiche la valeur correspondante de la
'colonne A dans le textbox
If Not vrech Is Nothing Then
ComboBox1.Value = vrech.Offset(0, 0).Text ' MATRICULE
With Me.TextBox1
.Value = vrech.Offset(0, -1).Value 'code
.BackColor = &HC000&
End With
' Boucle pour le remplissage
For Ind = 1 To 17
Me("Textbox" & Ind + 1).Value = vrech.Offset(0, Ind).Value
Next Ind
Else
With Me.TextBox1
.Value = ""
.BackColor = &H80000005
End With
' Boucle pour le remplissage
For Ind = 1 To 17
Me("Textbox" & Ind + 1).Value = ""
Next Ind
End If
End Sub
A+