Bonjour à tous
@adilprodigy
Private Sub TextBox2_AfterUpdate()
Dim Total As Double ' À mettre en entête du formulaire
Total = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
Label14.Caption =Format(Total, "0.000")
End Sub
Cells(no_ligne, 12) = Format(Val(Label14.Caption), "0.000")
MsgBox Format(Total, "0.000")
Utilise TAB du clavier.