Différence exactitude valeurs Single/Double

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 :)

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

Code:

---

dim x as double

---

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

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:

---

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:

---

1 2 3

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

---

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



_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Bonjour DocMarti,

Voici le code qui produit l'approximation:

Code:

---

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!

Bonjour,

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

Citation:

---

Envoyé par petitchti

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:

---

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

---

@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 ;)