Bonsoir.

Je rencontre une bizarrerie que j'aimerais bien comprendre. Voici le code, tout simple.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub curHatif()
Dim curA As Currency
 
curA = 0.553
 
With ThisWorkbook.Worksheets("Feuil1").Range("A1")
    .NumberFormat = "General"
    .Value = curA
End With
 
MsgBox curA
 
End Sub
C'est très simple : j'affecte la valeur 0,553 à une variable de type monétaire. Je choisis le format de nombre "Standard" pour la cellule A1 de la Feuil1. Puis j'affecte la valeur de la variable à la cellule.

Résultats :
dans la cellule 0,55 €
le message = 0,553.

Si je passe ensuite le format de nombre de la cellule à monétaire 4 décimales, l'affichage est 0,5500 €, ce qui montre bien que là 3ème décimale est perdue, ce qui est très gênant.

Est-ce une anomalie recensée? Quelqu'un a-t-il une explication?

Merci d'avance,

PGZ