Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion papouny
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

papouny

Guest
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
 
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
 
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
 
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é.... :
Code:
=SI(A21="";"";ARRONDI.INF(A21*Feuil3!C1/360*F21+A21*(D21-Feuil3!C1)/360*F21;2))
bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…