Fonction arrondi

Bonjour,

Je viens de découvrir quelque chose qui me semble assez étrange :

la fonction "arrondi" d'Excel ne donne pas les mêmes résultats que la fonction "round" en macro ... mais seulement pour certaines valeurs.

par exemple :

6.25 est arrondi à 6.3 avec "arrondi" mais à 6.2 avec "round"
idem pour 6.45 / 6.65 / 6.85

en revanche pour toutes les autres décimales à 2 chiffres je trouve le même résultat sur les 2 fonctions.
6.75 est arrondi à 6.8 avec "arrondi" et aussi avec "round"

quelqu'un a-t-il une explication ? et une solution pour que je puisse trouver une formule en macro qui me donne 6.3 comme arrondi de 6.25 ?

Merci par avance,

Emily.

PS. je précise que je ne peux pas taper directement ma fonction Excel avec guillemets et crochets dans vba car mon arrondi intervient dans une boucle for ... next avec par conséquent des valeurs changeantes de ce qui est à arrondir.

Bonjour,

Edit : je viens d'essayer Roundup mais ça arrondi systématiquement à l'entier supérieur par exemple 6.21 donnera aussi 6.3 :(

Code:

---

MsgBox Application.WorksheetFunction.RoundUp(6.25, 1)

---

Edit2: un lien ici

Ce qui m'étonne le plus c'est que je constate un écart pour les valeurs 6.25 / 6.45 / 6.65 et 6.85 mais pas pour 6.15 ou 6.75 .... ???

Citation:

---

Ce qui m'étonne le plus c'est que je constate un écart pour les valeurs 6.25 / 6.45 / 6.65 et 6.85 mais pas pour 6.15 ou 6.75

---

Oui, je crois que c'est une méthode d'arrondi dit bancaire ?

L'arrondi n'est pas le même si le chiffre est pair ou impair !

Edit : j'ai trouvé sur le net une fonction perso qui peut convenir ( a tester) :

Code:

---

1 2 3 4 5 6 7 8

Sub Test_Arrondi() MsgBox MyRound(6.25, 1) End Sub   Public Function MyRound(ByVal v As Double, ByVal dec As Integer) As Double   MyRound = Int((v * (10 ^ dec)) + 0.5) / (10 ^ dec) End Function

---

Code:

---

PS. je précise que je ne peux pas taper directement ma fonction Excel avec guillemets et crochets dans vba car mon arrondi intervient dans une boucle for ... next avec par conséquent des valeurs changeantes de ce qui est à arrondir.

---

Faut pas s'arrêter a ce genre de détaille on peux sans problème mettre des truc variable dans la formule

Code:

---

1 2 3 4

For i = 1 To 10 Range("A" & i).FormulaLocal = "=ARRONDI(" & 1.22 + i / 1000 & " ;2)" Next i

---

Sinon pour l'affichage des nombre j'utilise

Code:

---

Format(valeur, "0.0##")

---

Les 0 seront forcément présen les # facultitif 1.2 devient 1.2 2 devient 2.0 1.23456 devient 1.235

Merci beaucoup, ça fonctionne très bien.

J'écris ma fonction comme dans Excel et je programme un copier-coller en valeurs :ccool: