Discussion :

[benito32]

Bonjour,

N'ayant pas trouvé de solutions dans le forum j'écris ce message.

J'ai écris une table entre B2 et B4 avec trois valeurs (valeurs qui ne sont pas le résultat d'un autre calcul, donc exact) :
58,105
22,640
35,465

puis une macro qui est chargé de faire une soustraction simple

Code :

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

1
2
3
4
5
Sub calcul()
x = 58.105 - 22.64 - 35.465
MsgBox (x)
MsgBox (Range("B2").Value - Range("B3").Value - Range("B4").Value)
End Sub

Le problème est que la macro ne donne pas zero (pour ces deux affichages) comme résultat mais 7.10E-15.
D'ou ca vient? (de moi sûrement?)

Merci

[HopPopPop]

Bonsoir à tous,

Code :

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

1
2
3
4
5
6
7
8
9
Sub calcul()
Dim x As Single, b2 As Single, b3 As Single, b4 As Single
b2 = Sheets("Feuil1").Range("B2")
b3 = Sheets("Feuil1").Range("B3")
b4 = Sheets("Feuil1").Range("B4")
x = b2 - b3 - b4
MsgBox (x)
MsgBox (Range("B2").Value - Range("B3").Value - Range("B4").Value)
End Sub

[benito32]

Je te remercie pour cette réponse. Si je comprends bien il faut definir les variables comme "single".
J'ai en fait simplifié mon problème et la macro...

J'utilise en fait un tableau interne tableau(1 to 10, 1 to 200) définit comme variant,
car la première ligne comporte les titres, la première colonne des dates et le reste sont des nombres.

Y a t il moyen alors de définir le tableau comme single seulement pour le tableau (2 to 10, 2 to 200) et le reste en variant?

[joe.levrai]

Bonjour,

sans typer le tableau, mais en utilisant plutôt les fonctions de conversion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub toto()
 
Dim C(1 To 4)
 
C(1) = 58.105
C(2) = 22.64
C(3) = 35.465
C(4) = "Le compte est bon"
 
MsgBox CSng(C(1)) - CSng(C(2)) - CSng(C(3)) & " : " & C(4)
 
End Sub

[benito32]

Merci à vous deux :-)