VBA problème d'arrondi

[Arpette]

Bonsoir à tous, je suis confronté à un problème d'arrondi avec mon code, mais également en formule.
Mon code

Target.Offset(0, 1).Value = Application.WorksheetFunction.Sum _
(Target.Value * Range("G2") + Target.Offset(0, 2) * Range("H2"))

ou la formule
=+(8.35*1.3)+(0.58*37) = 32.315

Avec format de cellule j'arrondir à 32.32. Le problème est que la somme de colonne où se trouvent ces valeurs se fait sur 32.315 et fausse le résultat en lecture.
Est-il possible que le résultat soit 32.32.
Merci de votre aide
@+

 

[Staple1600]

Re : VBA problème d'arrondi

Bonsoir

Utilises la fonction ARRONDI en formule et son équivalent VBA
=ARRONDI(8,35*1,3+0,58*37;2)
En VBA

Sub a()
[A1] = Evaluate("=8.35 * 1.3 + 0.58 * 37")
MsgBox Round([A1].Value, 2)
End Sub

 

[jmps]

Re : VBA problème d'arrondi

Bonjour Arpette,

Target.Offset(0, 1).Value = Application.WorksheetFunction.RoundUp (Application.WorksheetFunction.Sum _
(Target.Value * Range("G2") + Target.Offset(0, 2) * Range("H2")),2)

Je sais pas si c'est très lisible mais j'ai juste ajouté un RoundUp.
Syntaxe : RoundUp ( Opération, nombre de décimales)

 

[Staple1600]

Re : VBA problème d'arrondi

Bonsoir jmps

Un simple Round suffit non ?

voir mon message précédent

 

[jmps]

Re : VBA problème d'arrondi

Salut Staple,

Ça dépend de l'arrondi qu'Arpette souhaite mais effectivement, Round, RoundUp ou RoundDown peuvent être utilisés.
Round effectue un arrondi comptable.
RoundUp arrondit au dessus quelque soit le dernier chiffre.
RoundDown au dessous.

 

[Staple1600]

Re : VBA problème d'arrondi

Re


Comme le remarque l'aide de VBA

• La fonction ROUNDUP se comporte comme la fonction ROUND, mais elle arrondit toujours les valeurs à un nombre supérieur.

Donc je vais au plus simple 😉 - cad j'utilise Round
(et en passant j'économise 2 caractères dans le code VBA 😎 )

 

[jmps]

Re : VBA problème d'arrondi

Re


Comme le remarque l'aide de VBA

• La fonction ROUNDUP se comporte comme la fonction ROUND, mais elle arrondit toujours les valeurs à un nombre supérieur.

Donc je vais au plus simple 😉

Donc elle ne se comporte pas tout à fait comme Round qui fait du "comptable" 😀
A savoir que de 0 à 4 on mettra zéro et de 5 à 9 on incrémente le chiffre de gauche.

EDIT :
Bon, je vais essayer d'être plus clair avec des exemples.

Prenons l'exemple d'Arpette : 32.315
Avec Round : 32.32
Avec RoundUp : 32.32
Avec RoundDown : 32.31

Si on remplace par 32.312
Avec Round : 32.31
Avec RoundUp : 32.32
Avec RoundDown : 32.31

 

[Staple1600]

Re : VBA problème d'arrondi

Re

Ok alors on peut aussi varier les plaisirs 😉

Sub e()
MsgBox Application.Ceiling(32.312, 0.01)
End Sub

 

[Victor21]

Re : VBA problème d'arrondi

Bonsoir, Arpette, Staple1600, JMPS.

Pour ma part, je me méfie de ROUNDUP, car 15 jours après, on peut replanter.

Bon, OK, je sors.

 

[jmps]

Re : VBA problème d'arrondi

Bonsoir, Arpette, Staple1600, JMPS.

Pour ma part, je me méfie de ROUNDUP, car 15 jours après, on peut replanter.

Bon, OK, je sors.

Je suis au courant 😀

 

[Arpette]

Re : VBA problème d'arrondi

Bonsoir à tous les deux, j'ai pris la solution de Staple (Round) qui répond exactement à mon besoin.
Merci à toi JMPS pour toutes ces explications, ainsi on peut choisir la mieux adaptée au besoin.
Merci Staple, tu as une fois plus tapé dans le mille.
Bonne soirée à vous
@+