Discussion :

[Hokutoki]

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 :

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

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 !!

Auriez-vous une explication et un remède ?

[Theze]

Bonsoir,

Déclare ton tableau en type "Double" :

Code :

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

1
2
 
Dim tableau(3) As Double

Hervé.

[Hokutoki]

Merveilleux !!

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

[AlainTech]

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