Chiffre arrondi dans vba.
Mourhad
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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.
A voir également:
- Chiffre arrondi dans vba.
- Excel trier par ordre croissant chiffre - Guide
- Clavier iphone chiffre et lettre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Chiffre en lettre - Télécharger - Outils professionnels
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
4 réponses
Bonjour
pour les chiffes dans les textBox pour faire des calcul il faut mettre un point
et mettre un KeyPress exemple:
A+
Maurice
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
Bonjour
Si ta valeur dans le textbox du style "12,34" tu as 12 si la valeur est "12.34"
tu as 12,34
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
