Merci ta formule fonctionne correctementBonjour,
Essaye Cells(no_ligne, 12) = Val(TextBox1.Value) * Val(TextBox2.Value)
@Oranger ton code bug MerciBonjour,
Utilise CDbl, cela permettra de convertir les données au format double
Cells(no_ligne, 12) = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)
Oranger
@pierrejean Ton code fonctionne parfaitement. MerciBonjour à tous
Je suggère:
Cells(no_ligne, 12) = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
Merci beaucoup @Lone-wolfBonjour à 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.