Code Vba pour forcer l'arrondi des décimales d'un calcul monétaire

[papouny]

Bonjour et merci pour votre collaboration,

Sous Excel , la formule de calcul suivante se trouve positionnée dans la cellule (E21) :
=SI(A21="";"";A21*Feuil3!C1/360*F21+A21*(D21-Feuil3!C1)/360*F21)


Propriétés de la cellule E21 : format monétaire, 3 décimales, signe Euro

Le résultat de la formule donne : 1,215€

Est il possible sans modifier les propriétés de la cellule E21 d'afficher par du code VBA le résultat avec 2 décimales
seulement et d'arrondir à l'inférieur la somme ( 1,21€ dans l'exemple cité )

Cordialement

 

[eriiic]

Re : Code Vba pour forcer l'arrondi des décimales d'un calcul monétaire

Bonjour,

et pourquoi pas tout simplement avec la fonction ARRONDI.INF() ?
Mais tu peux l'utiliser en vba si tu y tiens : c = Application.RoundDown(c, 2)

eric

 

[papouny]

Re : Code Vba pour forcer l'arrondi des décimales d'un calcul monétaire

Merci de vos suggestions.

Effectivement j'ai essayé la fonction ARRONDI.INF() mais celle-ci fait appel à une cellule de référence différente de celle ou se trouve le résultat sinon message d'erreur " référence circulaire "
Ne sachant si je dois utiliser un module ou inscrire la ligne de code directement dans la feuille et quelle procédure utiliser, pouvez-vous éclairer ma lanterne.

Cordialement

 

[Pierrot93]

Re : Code Vba pour forcer l'arrondi des décimales d'un calcul monétaire

Bonjour,

modifie peut être ta formule comme suit, non testé.... :

=SI(A21="";"";ARRONDI.INF(A21*Feuil3!C1/360*F21+A21*(D21-Feuil3!C1)/360*F21;2))

bonne journée
@+