Valeur arrondie à l'unité inférieure par Excel

[Jeff]

Bonjour,

merci de jeter un oeil sur mon code VBA de la page 'Repeatability' et plus précisément Public Sub REPEATABILITY()
un click sur le bouton 'STEP 1' créé automatiquement une table pivot
sur une nouvelle page appelée 'TP_REPEAT'. celà fonctionne..je souhaite ensuite effectuer des calculs sur base de cette table mais, comme vous pouvez le voir dans la cellule C10, le résultat de ma formule valC = 1 - valA / (valA + valB)
donne 0, alors que je devrais obtenir 0,6 (=1-3/5)

Que dois-je changer dans mon code?

Merci d'avance! [file name=Va_binomial4.zip size=40557]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Va_binomial4.zip[/file]

 

[Yan L]

Bonjour,

Je ne sais pas si çà peux faire avancer ton problème, mais essaies de déclarer tes variables en 'Double' au lieu de 'Long'
A suivre.... 😱

Yan

 

[Nikolaï]

Bonjour

Exactement, il faut que tu changes tes variables.
Dim valC as Long ne retournera que 0 au lieu de 0.4 ou 0.6.
Il faut que tu mettes Dim valC as Single or Double or Currency or Decimal, etc...

Christophe

 

[Jeff]

Ok, merci !!