Chiffre arrondi dans vba.
Bonjour à tous j’additionne dans mon useform 2 textbox le résultat apparait dans une troisième or cette dernier arrondit automatiquement et non conserve pas les décimal.
ci dessous le la partie du code pour l'addition
Private Sub TextBox9_Change()
TextBox84.Value = Val(TextBox9.Value) + Val(TextBox59.Value)
End Sub
Private Sub TextBox59_Change()
TextBox84.Value = Val(TextBox9.Value) + Val(TextBox59.Value)
End Sub
je souhaiterais garder les décimales.
Merci par avance pour votre aide.
ci dessous le la partie du code pour l'addition
Private Sub TextBox9_Change()
TextBox84.Value = Val(TextBox9.Value) + Val(TextBox59.Value)
End Sub
Private Sub TextBox59_Change()
TextBox84.Value = Val(TextBox9.Value) + Val(TextBox59.Value)
End Sub
je souhaiterais garder les décimales.
Merci par avance pour votre aide.
4 réponses
-
je l'ai bien lu et je les essayé en la collant dans le userform
sans succès malheureusement. -
étant novice en vba ou doit je effectuer la modification
cordialement -
ContributeurBonjour
Si ta valeur dans le textbox du style "12,34" tu as 12 si la valeur est "12.34"
tu as 12,34
Sub demo()
MsgBox Val("12.34")
MsgBox Val("12,34")
'solution
MsgBox ("12,34") * 1
End Sub
-
Bonjour
pour les chiffes dans les textBox pour faire des calcul il faut mettre un point
et mettre un KeyPress exemple:
Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0 Beep End If End Sub
A+
Maurice
