Private Sub CommandButton1_Click()
LIGNE = TextBox1.Value
On Error GoTo Fin
TextBox2.Value = Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 12).Value
TextBox3.Value = Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 9).Value
Exit Sub
Fin:
MsgBox "Valeur inconnue", vbCritical, "Erreur:"
TextBox1 = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
LIGNE = TextBox1.Value
Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 12) = TextBox2.Value
End Sub
Private Sub CommandButton3_Click()
LIGNE = TextBox1.Value
Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 9) = TextBox3.Value
End Sub