Discussion :

[Ricks31]

Bonjour,

Pouvez-vous m'expliquer pourquoi la fonction d'arrondi ne donne pas le même résultat entre une formule et du code VBA ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formule : =Arrondi(0.485 ; 2) --> 0.49

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBA : Round(0.485 , 2) --> 0.48

Y aurait-il un paramétrage, une astuce, un moyen d’éviter ce désagrément ?

Merci d'avance

[Jean-Philippe André]

Hello,

tu tombes pile poil sur le cas particulier de la fonction Round()

Cas 3 : Partie décimale exactement égale à 0.5
Round(1.5 , 0)= 2
Round(2.5 , 0)= 2
Round(3.5 , 0)= 4
Round(4.5 , 0)= 4
Round(5.5 , 0)= 6
Round(6.5 , 0)= 6
On voit bien avec ces exemples que la valeur arrondie pour tous ces cas est toujours un nombre pair.

http://access.developpez.com/sources...onctionRound97

[Ricks31]

Merci beaucoup pour ta réponse rapide

Je voyais bien le comportement déviant de la fonction.

Le lien est très instructif, merci beaucoup.

Code de remplacement de la fonction Round
Versions : 97 principalement

Voici une fonction d'arrondi (spécialement utile pour la comptabilité) :
...........................
.............................

Devine pour quel service je travail