Variables currency et single

Version imprimable

13/09/2017, 16h02
Daniel.C

Variables currency et single
Bonjour,

Un utilisateur me pose une colle sur les variables de type single et currency. Avec la valeur 1500.15678 en B2 :
Code:

1 2 3 4 5 6 7 8 Dim ValMonetaire As Currency, ValSingle As Single ValMonetaire = Cells(2, 2).Value ValSingle = Cells(2, 2).Value Cells(5, 2).Value = ValMonetaire Cells(7, 2).Value = ValSingle
je récupère 1500.15673828125 en B7 (format standard et barre de formule)
1500.16€ en B5 (format monétaire 2 décimales et 1500.16 dans la barre de formule)

Avez-vous une explication ?

Merci d'avance.
13/09/2017, 16h29
Marc-L

Bonjour,

j'obtiens le même résultat en direct sans les variables - inutiles - alors c'est le résultat de la conversion monétaire.

Pour de la précision utiliser CDbl …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
13/09/2017, 16h41
Daniel.C

Bonjour,

Oui si le format est déjà au format monétaire. Si le format est au format standard, pourquoi une valeur à 5 décimales en entrée donne-t-elle un résultat à deux décimales ? Pour le type Single, comment expliquer le résultat ?

Merci d'avance.

Daniel
13/09/2017, 16h43
Marc-L

Non, c'est dû au format de conversion, voir les explications déjà présentes sur le net et même peut-être déjà sur ce forum.

Aucun souci en format Double …
13/09/2017, 17h54
Daniel.C

Citation:

Aucun souci en format Double

Citation:

Les variables de type Currency sont stockées sous la forme de nombres de 64 bits (8 octets).
Ce type de données est utilisé dans les calculs monétaires ou dans les calculs à virgule fixe pour lesquels une grande précision est requise

Donc plus sûr que le format Double
14/09/2017, 02h22
eriiic

Bonjour,

et pour compléter Currency est en Entier à virgule fixe 4 décimales (d'où la précision supérieure à un Double, celle d'un entier mais avec des décimales limitées) dont 2 d'affichées, les 2 suivantes sont justement là pour s'affranchir des problèmes de pertes de précisions dues aux conversions.
Avec on a des centimes exacts ce qui est leur but, contrairement à un stockage avec mantisse et exposant (réel flottant)
eric
14/09/2017, 12h43
Daniel.C

Bonjour,

Merci pour tes explications. Cependant, le report de la variable au format Currency tronque le résultat à deux décimales. La variable étant limitée à 4 décimales, je ne comprends pas pourquoi la cellule n'en comporte que deux.

Bonjour,

1500.16 pour 1500.15678 ce n'est pas tronquer mais arrondir.
Comme je l'ai dit, le but d'un Currency est d'avoir des centimes exacts pour les comptabilités.
Un currency n'est pas fait pour calculer sur 5 décimales, tu en perds déjà une d'office, mais pour avoir 2 décimales exactes.
Pour ça il affiche 2 décimales mais calcule sur 4 (décimales que tu peux voir, dans vba tu lis 1500.1568).

Un peu comme une calculette qui semble toujours afficher le bon résultat sans problème de perte suite aux conversions.
Elle n'y est pas plus insensible, mais va afficher l'arrondi sur 15 digit par exemple alors qu'en interne elle aura calculé sur 18.
Mais attention que sur feuille ton Currency redevient un Double. Il n'est et ne reste Currency (entier à virgule fixe) qu'en vba.

Peut-être que ce petit test t'éclairera :
Code:

1 2 3 4 5 6 7 Dim v1 As Double, v2 As Double, i As Long 'Dim v1 As Currency, v2 As Currency, i As Long v1 = 0.1: v2 = 0 For i = 1 To 10 v2 = v2 + v1 If Round(v2, 1) <> v2 Then MsgBox "delta pour i=" & i & vbLf & v2 - Round(v2, 1): Exit For Next i
Lance-ce avec des Double, puis ensuite en inversant les déclarations pour avoir des Currency

Citation:

Envoyé par Daniel.C

Bonjour,

Merci pour tes explications. Cependant, le report de la variable au format Currency tronque le résultat à deux décimales. La variable étant limitée à 4 décimales, je ne comprends pas pourquoi la cellule n'en comporte que deux.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub EcrireValeurMonetaire()
 
Dim mynumber As Variant
 
Range("A1").Value = CDbl(100.123456)
Range("A1").NumberFormat = "#,##0.0000 $"
'Range("A1").NumberFormat = ""
 
mynumber = Range("A1").Value
If TypeName(mynumber) = "Currency" Then
   Call MsgBox("currency " & mynumber)
End If
 
'Ecrire valeur de type Double
Range("A1").Value = CDbl(mynumber)
mynumber = Range("A1").Value
If TypeName(mynumber) = "Currency" Then
   Call MsgBox("currency " & mynumber)
End If
 
'Ecrire valeur de type Currency
Range("A1").Value = mynumber
mynumber = Range("A1").Value
If TypeName(mynumber) = "Currency" Then
   Call MsgBox("currency " & mynumber)
End If
End Sub

Bonjour,

Merci pour vos réponses. J'ai obtenu une Réponse concernant le nombre de décimales dans la cellule Excel. Pour obtenir les 4 décimales statutaires, il faut utiliser "Value2" :
Code:

1 2 3 4 5 6 7 8 9 10 Dim ValMonetaire As Currency ValMonetaire = 1500.1568 Range("B5:B6").NumberFormat = "General" Range("B5").Value = ValMonetaire Debug.Print Range("B5").Value Range("B6").Value2 = ValMonetaire Debug.Print Range("B6").Value2 ?Range("B5").Value => 1500.16 ?Range("B6").Value2 =>W 1500.1568
(communiqué par Gustav Brock)