XL 2010 Tronquer un nombre décimal/rationnel

[Magic_Doctor]

Bonjour,

J'ai presque honte de poser cette question, mais je la pose quand même.

J'utilise une formule que j'ai développée. J'obtiens quasiment toujours un nombre décimal ou plutôt rationnel. Bref il y a toujours un paquet de chiffres après la virgule. Je voudrais tronquer ce chiffre à uniquement 2 décimales après la virgule mais sans affecter pour autant la 2ème décimale, de telle sorte que si celle-ci est suivie d'un "5" (3ème décimale) elle ne soit pas augmentée d'une unité.
Je m'explique au travers d'un exemple.
J'ai écri :

[N9] = Application.WorksheetFunction.Round([C7] * [F6] / ([C8] * firstvolrestant), 2)

Ce qui donne :
[N9] = 0,746268656716418 soit, en arrondissant : 0,75
Or, je voudrais 0,74

Comment s'y prendre ?

Merci pour tout commentaire.

 

[Staple1600]

Bonjour à tous

Comme cela peut être

Sub a()
Range("A1") = 0.746268656716418
'deux possibilités
MsgBox Application.Floor(Range("A1"), 0.01)
MsgBox Application.RoundDown(Range("A1"), 2)
End Sub

EDITION: Bonjour JHA, même idée que toi 😉

 

[JHA]

Bonjour à tous,

Pourquoi ne pas utiliser la fonction arrondi.inf()
=ARRONDI.INF(N9;2)
=ARRONDI.INF(0,746268656716418;2)

Edit: Bonjour Staple🙂, Bonjour Modeste Geedee🙂

JHA

 

[Staple1600]

Re

Puis le titre de la discussion parle de tronquer, il y aussi cette formule
=TRONQUE(A1;2)
(qui apparemment n'est pas disponible telle quelle dans VBA)

 

[Modeste geedee]

Bonsour®

Je voudrais tronquer ce chiffre à uniquement 2 décimales après la virgule
[N9] = 0,746268656716418 soit, en arrondissant : 0,75
Or, je voudrais 0,74

Heu ????
=TRONQUE(N9;2)

Vba
Application.Trunc([N9],2)

 

[Staple1600]

Bonjour ModesteGeedee

Je venais de dire qu'on ne peut pas utiliser Application.Trunc (voir mon précédent message)
(message d'erreur (en tout cas) dans Excel 2013)

Donc pour y pallier, une fonction personnalisée

Sub b()
Range("A1") = 0.746268656716418
MsgBox TRONQUER(Range("A1"), 2)
End Sub
Public Function TRONQUER(ByVal V As Double, ByVal N As Integer) As Double
TRONQUER = Int(V * (10 ^ N)) / (10 ^ N)
End Function

 

[Magic_Doctor]

Bonjour tout le monde,

D'abord, merci pour votre intérêt.

Modeste geedee, je confirme ce qu'avance Staple1600 :

WorksheetFunction.Trunc([N9],2)

ne marche pas !
J'avais essayé en vain, d'où ma question.

Staple1600, ta fonction a l'air de marcher très bien.

Bonne journée.

 

[Staple1600]

Re

Bonjour tout le monde,
Staple1600, ta fonction a l'air de marcher très bien.

Le code VBA que j'ai posté dans le message#2 aussi, non ?
Et en utilisant ARRONDI.INF en VBA (donc Application.RoundDown) pas besoin de fonction personnalisée.

 

[Modeste geedee]

Re

Puis le titre de la discussion parle de tronquer, il y aussi cette formule
=TRONQUE(A1;2)
(qui apparemment n'est pas disponible telle quelle dans VBA)

😉
je n'ai pas Excel 2013, mais Magic_Doctor signale être avec EXCEL 2007
alors peut-être :
http://excel-downloads.com/threads/fonction-tronque-en-vba.52585/#post-20080566

 

[Staple1600]

Re

ModesteGeedee
Quel est le souci d'employer ARRONDI.INF ou PLANCHER plutôt que TRONQUE ?
PS: Sur ton Excel, tu as bien un message d'erreur avec Application.Trunc, non ?

 

[job75]

Bonjour à tous,

Escouger : Merci d'aller jouer ailleurs.

Je lui ai envoyé un MP :

Bonjour escouger,

Je vous conseille de faire comme indiqué ici :

https://www.excel-downloads.com/threads/fonction-si-et-aujourdhui.20011295/

job75

A+

 

[JCGL]

Bonjour à tous,
Salut Gérard,

Signalé à David.

A++
A+ à tous

 

[Modeste geedee]

Bonsour®

Re

ModesteGeedee
Quel est le souci d'employer ARRONDI.INF ou PLANCHER plutôt que TRONQUE ?
PS: Sur ton Excel, tu as bien un message d'erreur avec Application.Trunc, non ?

affirmatif ...
😉
il n'y a aucun souci, il s'agit d'une réponse à Mapomme il y a quelque temps à propos du même sujet ...

😀 Quoique ...
l'arrondi inférieur ou Plancher se fait vers les valeurs inférieures, que le nombre soit positif ou négatif
alors que Tronque opère par rapprochement du zéro
😎

 

[mapomme]

Bonsoir à toutes et tous 🙂,

Sur mon Excel 2010, les instructions suivantes semblent fonctionner :

Sub test()
Dim v

   Range("b:b").ClearContents
   [b1] = [TRUNC(100*0.746268656716418,0)/100]

   [a2] = 55.5555
   [b2] = [=TRUNC(100*a2,0)/100]

   v = 99.1188
   ActiveWorkbook.Names.Add Name:="AUX", RefersToR1C1:=v
   [b3] = [TRUNC(100*aux,0)/100]

   [b4] = [TRUNC(-0.746268656716418*100,0)/100]

   [a5] = -55.5555
   [b5] = [=TRUNC(100*a5,0)/100]

   v = -99.1188
   ActiveWorkbook.Names.Add Name:="AUX", RefersToR1C1:=v
   [b6] = [TRUNC(100*aux,0)/100]

End Sub

 

[Staple1600]

Bonsoir mapomme 😉

Oui cela fonctionne (aussi sur Excel 2013) mais en passant par Evaluate (les fameux [ ])
On ne peut pas utiliser Application.Trunc ou Application.WorksheetFunction.Trunc