calculé le chiffre aprés la virguleRésolu

Question

bonjour
voila je dois faire un calcul,voila le code simple
Label5(1) = Val(Label9(0)) * Val(Text1(48))
label9(0) = 3,1
text1(48) = 33
normalement 3,1 * 33 = 102,3
et la il me donne 99
il ne calcule pas le chiffre aprés la virgule
auriez vous une idée 
merci
petchy

jrivet · Accepted Answer

Salut,
Utilises peu etre plutot Csng() au lieu de Val. car c'est peu etre val qui coupe la virgule a vérifier

@+: Ju£i?n
Pensez: Réponse acceptée

jmfmarques · Answer

Il ne faut pas utiliser la virgule mais le point comme séparateur décimal.

cs_Exploreur · Answer

Salut,

Je viens de faire une essai avec Cdbl à la place de Val cela fonctionne, mais attention, au symbole définis sur ton pc : le point ou la virgule...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Renfield · Answer

dans le doute, passer IsNumeric, Val et Cdbl .... on peut obtenir

If IsNumeric, tenter un Val, sinon, CDBL Ok

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_petchy · Answer

re
j'ai essayer ça 
Label5(1) = CDbl(Label9(0)) * CDbl(Text1(48))
mais j'ai une erreur type 13 
petchy

Renfield · Answer

toi, t'as du te planter dans la saisie, surement  

3.14

au lieu de 

3,14  (selon tes parametres regionnaux)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

chaibat05 · Answer

normalement 3,1 * 33 = 99,33  et non 102,3

chaibat05 · Answer

et donc Label5(1) = format(CDbl(Label9(0)) * CDbl(Text1(48)),"0.00")

cs_JMO · Answer

Bonjour à tou,

Alors là, chaibat05, c'est pas bien !!!

Sub delayedSendKeys(str)
     WScript.Sleep 100
     WshShell.SendKeys str
End Sub

Dim WshShell, oCalc, oNotepad
Set WshShell = CreateObject("WScript.Shell")
Set oCalc = WshShell.Exec("calc")
Set oNotepad = WshShell.Exec("notepad")
WScript.Sleep 100

WshShell.AppActivate oCalc.ProcessID
delayedSendKeys "3,1{*}33~"
delayedSendKeys "^C"
delayedSendKeys "%{F4}"

WshShell.AppActivate oNotepad.ProcessID
delayedSendKeys "3,1 {x} 33 = ^V"

jean-marc

cs_petchy · Answer

un grand merci à vous tous 
en fait Text1(48) n'auras jamais de virgule,donc,j'ai fait ça et ça fonctionne.
Label5(1) = CDbl(Label9(0).Caption) * Val(Text1(48).Text)

@plus
petchy

chaibat05 · Answer

je sais JMO,
j' ai trop la honte !
Trop de camping nuit au calcul mental...

Renfield · Answer

commment peux tu certifier ce 
"n'auras jamais" ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_JMO · Answer

Re,

Comme le suggère Renfield, en prog, il faut prévoir l'imprévisible !!!

msgbox CDbl(Replace("3.1",".",",")) * CDbl(Replace("33",".",",")) 
'ou
msgbox Replace("3.1",".",",") * Replace("33",".",",")

jean-marc

jmfmarques · Answer

Bonjour,

Moi je fais comme moi...
http://www.vbfrance.com/codes/SAISIES-CONTROLEES-DIVERSES-ALPHABETIQUES-NUMERIQUES_42484.aspx
et n'ai donc jamais de problème

cs_EBArtSoft · Answer

Tout cela ne fonctionne que si les parametres regiaunaux ont ete correctement configuré.

@+

E.B.

cs_JMO · Answer

Bonjour EBArtSoft,
Oui, effectivement, et de même, si saisie = 1.200,12 
le Replace plante lamentablement.

jean-marc

Calculé le chiffre aprés la virgule

16 réponses

Votre réponse

Discussions similaires