[déplacé VB.NET -> VB6] addition dans un textbox [Résolu]

achlouj2161 4 Messages postés dimanche 5 février 2006Date d'inscription 3 février 2010 Dernière intervention - 1 févr. 2010 à 22:46 - Dernière réponse : PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention
- 3 févr. 2010 à 18:14
je suis débutant et j'ai essayer de faire une addition de trois textbox , mais lorsque je mets des nombres décimaux le resultat qui est dans le un 4émé textbox donne un nombre entier et ne donne plus de chiffre après la virgule...voilà mon code veuillez le modifier pour que le résultat puisse contenir des nombres décimaux et merci:
Private Sub Command1_Click()
Dim Var1, Var2, Var3 As Long
Var1 = CLng(Val(Text1.Text))
Var2 = CLng(Val(Text2.Text))
Var3 = CLng(Val(Text3.Text))
Text4.Text = Var1 + Var2 + Var3
End Sub
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 2 févr. 2010 à 09:12
3
Merci
salut,

VAL retourne un LONG, donc un NON-DECIMAL !
selon les regional settings : utiliser CDBL

Private Sub Command1_Click()
  Dim Var1 as double, Var2 as double, Var3 as double
  Var1 = Cdbl(Text1.Text)
  Var2 = Cdbl(Text2.Text)
  Var3 = Cdbl(Text3.Text)
  Text4.Text = cstr(Var1 + Var2 + Var3)
End Sub


PS : attention aux thèmes !!!!
déplacé vers VB6 !

[hr]

Merci PCPT 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de PCPT
VicoLaChips2 439 Messages postés dimanche 20 janvier 2002Date d'inscription 2 février 2010 Dernière intervention - 2 févr. 2010 à 01:23
0
Merci
On ta reconnu satanas !:d

Essaye :

Private Sub QuandJfaisQuelqueChoseCaMarchePasAToutLesCoupsCestPourCaQueJecrisEnAnglais()
Text4.Text = CDbl( Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) )
End Sub


vicolachips II
Commenter la réponse de VicoLaChips2
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 2 févr. 2010 à 08:42
0
Merci
C'est finalement du quoi ? du VB6 ou du VBA ? (pas du VB.Net, de toutes manières) . A déplacer vers quoi ?

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Commenter la réponse de ucfoutu
achlouj2161 4 Messages postés dimanche 5 février 2006Date d'inscription 3 février 2010 Dernière intervention - 3 févr. 2010 à 16:22
0
Merci
salut et merci à votre collaboration , le resultat obtenue est bon , mais je veux bien que ce soit deux chiffres après la virgule seulement , je reprends le code :

Private Sub Command1_Click()
Dim Var1 as double, Var2 as double, Var3 as double
Var1 = Cdbl(Text1.Text)
Var2 = Cdbl(Text2.Text)
Var3 = Cdbl(Text3.Text)
Text4.Text = cstr(Var1 + Var2 + Var3)
End Sub

merci encore une fois pour tout aide ...
Commenter la réponse de achlouj2161
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 3 févr. 2010 à 18:14
0
Merci
Text4.Text = format$((Var1 + Var2 + Var3),"#.00")
Commenter la réponse de PCPT

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.