XL 2016 équivalant tronque en vba

[CHFun]

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

 

[Florian53]

Bonjour CHFun,

As tu essayé le code ci dessous ?

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

 

[youky(BJ)]

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

 

[mapomme]

Bonjour à tous,

Ou cette expression en VBA :

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

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

 

[Modeste geedee]

Bonsour®

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

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

 

[joe.levrai]

Bonjour,

un arrondi inférieur fait l'affaire

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