A+TextBox2 = TextBox1 * 0.05
Allo
Private Sub textBox212_Change()
TextBox212.Value = Val(TextBox211.Value) * 0.05
End Sub
ne fonctionne pas ???
Private Sub TextBox211_Change()
TextBox212 = Val(Replace(TextBox211, ",", ".")) * 0.05
End Sub