Discussion :

[Emily2711]

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.

[aalex_38]

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 :

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

MsgBox Application.WorksheetFunction.RoundUp(6.25, 1)

Edit2: un lien ici

[Emily2711]

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 .... ???

[aalex_38]

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 :

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

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

[Krovax]

Code :

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

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 :

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

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 :

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

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

[Emily2711]

Merci beaucoup, ça fonctionne très bien.

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