XL 2016 équivalant tronque en vba

F

Florian53

XLDnaute Impliqué

• 25 Juillet 2018

• #2

Bonjour CHFun,

As tu essayé le code ci dessous ?

Code:

Function Tronque(Target, Decimales As Integer) As Double
Tronque = WorksheetFunction.trunc(Target, Decimales)
End Function

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Juillet 2018

• #3

Bienvenu CHFun pour ton 1er message sur ExcelDownload,
Dans la fenêtre Exécution écrit
?format(10/3,"0.00") et fait Enter
le résultat de la division donne 3,33
Bruno

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Juillet 2018

• #4

Bonjour à tous,

Ou cette expression en VBA :

VB:

CDbl(Fix(x * 10 ^ n) / 10 ^ n)

De x, on conserve n chiffres après la virgule (sans arrondi)

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 25 Juillet 2018

• #5

Bonsour®

CHFun à dit:

Bonjour à tous

la question est presque dans le titre: existe-t-il une fonction VBA équivalente à Tronque qui supprime un nombre de chiffres superflus après ls virgule
les fonctions Fix et Int ne permettent pas (à mon avis) de choisir un nombre de chiffres

Merci de bien vouloir éclairer ma lanterne

Cliquez pour agrandir...

🙄 la fonction TRONQUE est une fonction de feuille de calcul
pour appeler cette fonction via VBA :
xx= WorksheetFunction.TRUNC(nombre, nombre de décimales)
la syntaxe et arguments restent ceux de la fonction de feuille de calcul
😎

 

Vote positif 0 Vote négatif

J

joe.levrai

XLDnaute Nouveau

• 25 Juillet 2018

• #6

Bonjour,

un arrondi inférieur fait l'affaire

VB:

Sub toto()
Dim Nombre As Double
    Nombre = 1.99
    MsgBox Application.RoundDown(Nombre, 0)
End Sub

 

Vote positif 0 Vote négatif