XL 2010 Recherche d'une fonction qui tronque un nombre décimal sans altérer la dernière décimale

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Août 2020

• #16

Bonjour @Dranreb 🙂

@patricktoulon 🙂,
Si ça échoue, ne serait ce pas pour une histoire de virgule ou point décimal ? 😉 (comme le laissait entendre @Dranreb)

Le code suivant fonctionne.

VB:

Sub test()

a = 12.4567
a = Replace(a, ",", ".")
MsgBox Evaluate("trunc(" & a & ", 3)")

End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Août 2020

• #17

bonjour @mapomme

edit
oupss j'avais fait l'inverse, ça fonctionne avec le replace "," par "."
autant pour moi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Août 2020

• #18

Bonjour à tous,

Au lieu de la fonction TRONQUE utilisez ARRONDI.INF (ROUNDDOWN) :

VB:

Sub a()
MsgBox Application.RoundDown(1.2348, 3)
End Sub

[Edit] Hum manquait un R à ARRONDI...

A+

 

Dernière édition: 13 Août 2020

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 13 Août 2020

• #19

Effectivement il faut adapter le séparateur décimal.
Le mien étant le . je n'y pense pas toujours.
Mais Arrondi.inf est la bonne idée 😉
eric

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Août 2020

• #20

En effet, mais j'étais persuadé qu'elle faisait un arrondi inférieur (donc de valeur absolue supérieure si le nombre était négatif) du coup je me demande s'il en exste une qui le fait … juste par curiosité … Parce que la fonction VBA.Int me suffit dans toutes les situations.

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 14 Août 2020

• #21

Bonjour,

J'ai regardé tout ça de plus près. En fait tout marche (voir PJ), il n'y a plus que l'embarras du choix.

 

Pièces jointes

• Essais.xlsm

  24.1 KB · Affichages: 15

Vote positif 0 Vote négatif