Discussion :

[pgz]

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

[mercatog]

Bonsoir
Essaies ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub curHatif()
Dim curA As Currency
 
curA = 0.553
With ThisWorkbook.Worksheets("Feuil1").Range("A1")
    .NumberFormat = "General"
    .Value = curA
    MsgBox .NumberFormat
End With
End Sub

Tu remarques que A1 a un format monétaire avec 2 chiffres après la virgule

[pgz]

Bonsoir Mercatog.


Et merci de t'intéresser au pb.
Je suis d'accord avec ta remarque. C'est pour cela que je précisais que si je change ensuite le format monétaire de 2 à 4 décimales, j'obtiens 0,5500 € au lieu de 0,5530 €.

La 3ème décimale est perdue, ce qui est grave dans mon appli.

et ce qui est mon pb.

PGZ

[Didier Gonard]

Bonjour,

On sollicite tout une chaîne d'interprétations par défaut souvent bien pratiques, mais induisant des comportements non prévus parfois...

essayes cette syntaxe :

Code :

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

1
2
3
4
5
6
7
8
9
Sub formatdvp()
Dim curA As Currency
 
curA = 0.553
With ThisWorkbook.Worksheets("Feuil1").Range("A12")
    .Value2 = curA 'cf aide VBA
    .NumberFormat = "#,##0.000 €"
End With
End Sub

c'est un peu "cavalier" par contre, en essayant de comprendre, on peut faire plus propre :

Code :

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

1
2
3
4
5
6
7
8
Sub formatdvp2()
Dim curA As Variant
curA = 0.553
With ThisWorkbook.Worksheets("Feuil1").Range("A12")
    .Value = curA
    .NumberFormat = "#,##0.000 €"
End With
End Sub

mais on est en variant, l'examination de la fenêtre variables locales en pas à pas, nous apprend que le VBA l'interprète en double, dont acte (on exploite la chaîne d'interprétation plutôt que la subir) :

Code :

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

1
2
3
4
5
6
7
8
Sub formatdvp3()
Dim curA As Double ' currency visé en final mais souci d'interprétation
curA = 0.553
With ThisWorkbook.Worksheets("Feuil1").Range("A12")
    .Value = curA
    .NumberFormat = "#,##0.000 €"
End With
End Sub

avec le commentaire qui va bien pour se souvenir de ce qu'on a fait

cordialement,

Didier

[Didier Gonard]

Suite remarque de @pgz, je confirme que le formatage préalable de la cellule ainsi :

Code :

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

Cells(1, 1).NumberFormat = "#,##0.000 $"

ne change rien car on a bien 3 décimales, mais un arrondi ce que j'avais squatté...dans le code, inutile donc, mis ici avant modif.

cordialement,

Didier

[pgz]

Bonjour Ormonth.

Merci pour tes réponses.
Les 3 premières solutions reviennent à utiliser le type double. La dernière solution, que j'aurais préférée, me donne malheureusement 3,240 €, soit toujours le même pb.

A mon avis, le pb ne vient pas de l'évaluation intermédiaire car un MsgBox, ou un Debug.Print renvoie la variable monétaire avec toutes ses décimales.
Par ailleurs, j'ai fait un essai avec ACCESS, dans un champ monétaire format auto, j'inscris 3,236 et j'enregistre la bonne valeur en table.

A ce stade, j'en déduis que la seule solution avec Excel est d'utiliser le type double, avec un format monétaire, mais cela revient à dire qu'on ne peut pas utiliser le type monétaire, ce qui me semble choquant.

Cordialement,

PGZ