Private Sub PrNom_Click()
With Sheets("Donnée")
Columns(2).Select
On Error GoTo fin
Selection.Find(what:=Rechnom.Value, after:=ActiveCell).Activate
End With
Resultat.Text = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value _
& " " & ActiveCell.Offset(0, 2).Value & " " & ActiveCell.Offset(0, 3).Value _
& " " & ActiveCell.Offset(0, 4).Value
fin:
End Sub
Private Sub PrNum_Click()
With Sheets("Donnée")
Columns(1).Select
On Error GoTo fin
Selection.Find(what:=Rechnom.Value, after:=ActiveCell).Activate
End With
Resultat.Text = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value _
& " " & ActiveCell.Offset(0, 2).Value & " " & ActiveCell.Offset(0, 3).Value _
& " " & ActiveCell.Offset(0, 4).Value
fin:
End Sub