Ecriture eronée d'une variable Single dans une feuille de calcul

Bonjour,

Tu peux passer en double précisions en remplacant "single" par "double".

La cause, il me semble que ça se situe très bas au niveau processeur mais je n'en suis plus très sûr.

Gérald

Bonjour,

Merci pour la réponse.

Le passage du type "Single" au type "Double" permet d'écrire les nombres avec fractions de manière plus correcte.

Il subsiste encore un problème d'arrondi (j'obtiens à un endroit 6,2 au lieu de 6,3 qui est la valeur exacte).

Je m'en tire avec la procédure suivante qui nettoie les cases juste après leur écriture.

Private Sub WritingCorrector()
Dim ValTst As Single
Dim ValFix As Integer

ValFix = Fix(ActiveCell.Value)
ValTst = ((ActiveCell.Value - ValFix) * 10)

If (ValTst > (Int(ValTst) + 0.5)) Then
ActiveCell.Value = Fix(ActiveCell.Value) - Int(-((ActiveCell.Value - Fix(ActiveCell.Value)) * 10)) / 10
Else
ActiveCell.Value = Fix(ActiveCell.Value) - Fix(-((ActiveCell.Value - Fix(ActiveCell.Value)) * 10)) / 10
End If
End Sub