Discussion :

[petitchti]

Bonjour à tous,

Je reviens vers vous pour un nouveau problème. Cela concerne la précision des données en "Single" et en "Double".

Y a-t-il une explication au fait que lorsque j'entre un chiffre à virgule (1.1 par exemple) en input box et qu'il est déclaré en tant que:
-"Single" --> la valeur n'est pas exacte.
-"Double" --> la valeur est exacte.



Merci d'avance

[pasdechances]

bonjour,
tu as penser à déclaré ta variable ?

Code :

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

dim x as double

[petitchti]

Salut pasdechances,

Merci de t'intéresser à mon problème. Oui j'ai bien déclaré mes variables. Et c'est justement ça le problème, selon que je la déclare en Single ou double, je n'obtiens pas la même précision!

Fichier joint dans vos discussions

[Docmarti]

Quel est ton code qui produit une valeur inexacte ?

Si tu attribues à une cellule la valeur décimale d'une variable de type SINGLE, tu pourrais obtenir avec le code suivant une valeur approximative, donc inexacte.

Code :

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

1
2
3
Dim s As Single
s = 1.1
Cells(3, 2).Value = s

Pour obtenir la valeur exacte de la variable de type SINGLE et non la valeur approximative, il faut utiliser FormulaLocal et CStr :

Code :

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

1
2
3
Dim s As Single
s = 1.1
Cells(2, 2).FormulaLocal = CStr(s)

[Marc-L]

Un p'tit bonjour en passant et voir aussi le résultat de cette démonstration ! …



_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[petitchti]

Bonjour DocMarti,

Voici le code qui produit l'approximation:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim angle1 As Single
Dim angle2 As Double
 
angle1 = Replace(Application.InputBox("First decimal number in Single?", "Single", "15", Type:="1"), ".", ",")
angle2 = Replace(Application.InputBox("Same decimal number in Double?", "Double", "15", Type:="1"), ".", ",")
 
Worksheets("Feuil1").Range("A1").Value = angle1
Worksheets("Feuil1").Range("A2").Value = angle2
 
End Sub

Il est vrai qu'avec ta méthode ("Formulalocal" et "Cstrg") cela fonctionne.

Cela est-il simplement dû à la définition même du type Single (relative précision des nombres à virgules?)

@Marc-L
Ton exemple est très intéressant! Si je comprends bien, il semble présenter les effets inverses de mon problème! Mauvaise précision en Double mais pas en Single!

[clementmarcotte]

Bonjour,

En tout cas avec le code que tu donnes, je récupère deux 15 tout ronds avec Excel 2010.

[Docmarti]

Il est vrai qu'avec ta méthode ("Formulalocal" et "Cstrg") cela fonctionne.

Cela est-il simplement dû à la définition même du type Single (relative précision des nombres à virgules?)

Je te suggère d'adopter les nombres Decimal (obtenus grâce à CDec).

J'ai effectué quelques tests.
Meme avec FormulaLocal et CStr, le type Single provoque 235 valeurs inexactes sur 1000
Le type Double est plus juste : seulement 82 sur 1000
Le type Decimal : 0 sur 1,000,000

Les nombres Decimal ont une représentation plus précise dans la mémoire que les types à virgule flottante (Single et Double).

Le type de données Decimal fournit le plus grand nombre de chiffres significatifs pour un nombre. Il prend en charge jusqu'à 29 chiffres significatifs. Le type Single : 7 chiffres, le type Double : 15.

Ce type de données est particulièrement adapté aux calculs (par exemple, financiers) qui exigent un grand nombre de chiffres, mais qui ne peuvent pas tolérer les erreurs d'arrondi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
Dim angle1 As Variant
Dim angle2 As Variant
 
Dim var1 As Variant
Dim var2 As Variant
 
var1 = Replace(Application.InputBox("First decimal number in Single?", "Decimal", "15,60", Type:="1"), ".", ",")
var2 = Replace(Application.InputBox("Same decimal number in Double?", "Decimal", "0,8055", Type:="1"), ".", ",")
 
 angle1 = CDec(var1)
 angle2 = CDec(var2)
 
 Worksheets("Feuil6").Range("A1").Value = angle1
 Worksheets("Feuil6").Range("A2").Value = angle2
 
End Sub

[petitchti]

@ClementMarcotte

Oui tu récupères 15 tout rond si tu mets 15 tout rond. Mais si tu mets des nombres à virgules (ça dépend lesquels encore, 15.2 par exemple) tu verras des différences. Mais c'est de ma faute, j'ai mis 15 dans le code que j'ai envoyé :/

@DocMarti

Merci pour ces précisions.
Et merci surtout pour le temps que tu as pris à répondre à mes questions.
Je vais tester la méthode decimal.

Pour conclure, il est donc normal que les chiffres significatifs après la virgule ne soient pas au rendez-vous des Single, c'est dans la définition de ce type de variable! La lumière est faite