Private Sub ComboBox1_Change()
With Sheets("Produits").Range("e2:e22")
Set cel = .Find(ComboBox1.Text, , xlValues)
If Not cel Is Nothing Then
TextBox2 = Format(cel.Offset(0, 6), "0.00")
End If
End With
End Sub
Private Sub CommandButton1_Click()
With Sheets("Produits").Range("e2:e22")
Set cel = .Find(ComboBox1.Text, , xlValues)
If Not cel Is Nothing Then
Sheets("Stock").Activate
With Sheets("Stock").Range("c2:c22")
Set cel = .Find(ComboBox1.Text, , xlValues)
cel.Offset(0, 4) = TextBox1.Value
cel.Offset(0, 9) = TextBox2.Value
End With
End If
End With
End Sub