Dim LaValeur As Double
Dim LavaleurCur As Currency
LaValeur = 212.123456
LavaleurCur = CCur(LValue)
LavaleurCur sera égale à :
212.1234
rend = TextBox2 - TextBox1
@ Marcel - rend = TextBox2 - TextBox1 - Non, les valeurs Texte ne sont pas converties
Private Sub TextBox2_AfterUpdate()
rend = Val(TextBox2) - CDbl(TextBox1)
TextBox3 = Format(rend, "#,##0.00")
End Sub
Private Sub TextBox2_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
If InStr("0123456789,.", Chr(keyAscii)) = 0 Then keyAscii = 0
If keyAscii = Asc(".") Then keyAscii = Asc(",")
End Sub
rend = CDbl(TextBox2) - CDbl(TextBox1)
Tu obtiens ce résultat car tu as formaté TextBox3 = Format(rend, "#,##0.00")Re le fil
Bonjour cp4
@ cp4 - Essais Cbo = AC - TxtB1: 8,5 - Mets en TxtB2 : 14,3897 - Tu obtiens 5,89 au lieu de 5,8897 alors que MaxLength est à Null - Regarde mon fichier en XL2010.
Bonne journée à toutes & à tous
@+ Eric c
Ok, donc ça ne plante pas. Ça me rassure qu'il n'y ait pas tant de différences que ça entre 2010 et 2016.@ Marcel - Oui, à partir où un chiffre décimal est entré en TextBox1, le résultat est faussé.