Arrondi non conservé

Bonjour,

je suis confronté à un problème avec une de mes macros VBA que je ne parviens pas à élucider.

Mon code est le suivant :

Code:

---

1 2 3 4 5 6 7

Dim tableau(3) As Single ... tableau(0) = Round(ActiveWorkbook.Sheets("a").Range("X16").Value, 1) tableau(1) = Round(ActiveWorkbook.Sheets("b").Range("X16").Value, 1) tableau(2) = Round(ActiveWorkbook.Sheets("c").Range("X16").Value, 1) Range("d").Resize(1, 3) = tableau

---

En l'occurrence, en ActiveWorkbook.Sheets("b").Range("X16"), j'ai 37,599998474121 .
Dans tableau(1) je retrouve comme voulu 37.6.
Mais dans ma feuille Excel, en Range("d").Offset(0,1), je me retrouve à nouveau avec 37,599998474121.

Aussi, je m'arrache les cheveux et ne comprends pas !! :cry:

Auriez-vous une explication et un remède ?

Bonsoir,

Déclare ton tableau en type "Double" :

Code:

---

1 2	Dim tableau(3) As Double

---

Hervé.

Merveilleux !! :P

Pour vivre moins bête : pourquoi la simple précision posait-elle problème ?...

A cause de la méthode de conversion en Single.
VBA part d'un double et tronque mantisse et exposant, ce qui donne une aproximation correcte à quelques chiffres après la décimale.
Je vais voir si je retrouve l'explication complète.

En voici une:
http://www.developpez.net/forums/d35...a/#post2317362