Problème fonction ROUND

[Pio]

Bonjour à toutes et à tous !

Alors voilà, j'ai un petit soucis avec la fonction ROUND.
Dans une macro VBA, je dois faire la moyenne de plusieurs variables, et ce sans chiffre après la virgule. J'ai donc décidé de d'utiliser cette fonction pour arrondir à "0 chiffre après la virgule".

ça fonctionne correctement, sauf dans un cas bien particulier. En effet, lorsque le résultat brut de la moyenne tombe sur XXXX,5 round me renvoie XXXX et non XXXX + 1 comme il devrait le faire en suivant les règles d'arrondi.

Par exemple, dans le code suivant :

Sub essai()
a = 3710
b = 3782
c = 3733
d = 3721
e = Round((a + b + c + d) / 4, 0)
End Sub

La moyenne "e" des quatre valeurs "a, b, c, d" donne 3736,5. Donc l'arrondi devrait renvoyer 3737. Or, ici j'ai 3636 !
Si j'ajoute 1 à une des variables pour avoir 3736,75 de moyenne, l'arrondi me renvoi bien 3737 (donc correct).

Y'a-t-il un truc que j'ai pas compris, ou j'ai faux quelque part ??

Merci par avance pour votre aide !!

Jérôme

 

[michel_m]

Re : Problème fonction ROUND

Bonjour,

C'est un bug (?) dû à la numérotation IEEE...

2/Déclare "e" en tant que double

3/ utilise worksheetfunction

e=application.worksheetfunctions. round(....

(je sais plus s'il y a un s a worksheetfunction....)

 

[Pio]

Re : Problème fonction ROUND

YAHOU !!!!

Super ! Mille mercis ! J'ai intégré ça à mon code et ça marche nickel !!!

J'avoue avoir passé 1h30 dessus hier soir sans trouver le soucis. Et je pense que je n'aurai jamais trouvé sans ton aide.
Par contre, j'ai pas trop saisi le coup de la numérotation IEEE (pour moi, IEEE c'est IEEE488 que j'utilise aussi dans certaines de mes macros ...).

Encore merci !

P.S. : il n'y a pas de s à worksheetfunction 😀