Microsoft 365 [VBA] sum (problème d'arrondi)

[terry08200]

Bonjour à tous,

Je ne sais pas si mon problème vient de mon code ou de ma configuration mais je commence à douter ...

sur ma feuille 1 il y a des valeurs en O1, O2 jusque O10
mais quand je fais la somme des ces valeurs avec excel donc

=SOMME(O1:O10)

j'obtiens 8,7
Quand je fais la même chose avec VBA j'obtiens 9,00

Je cherche une solution sur internet, mais quelle est la bonne ? Car après tentative des divers méthode, j'échoue.

Voici ma dernière tentative, sachant que je vais adapter cela à un autre fichier qui à le même problème.

Sub toto()

Dim toto As Long

toto = Application.Sum(Feuil1.Range("O1:O10").Value)
[P1] = toto

End Sub

Merci par avance.

 

[Wayki]

Bonjour,
Sans fichier nous ne pouvons t'aider.
Tu peux déjà faire un raccourci en mettant [P1] = application.sum(etc...) et enlever ta variable toto.

A +

 

[Chris401]

Bonsoir
Modifie ta variable

Dim toto As Single

 

[terry08200]

Bonsoir
Modifie ta variable

Dim toto As Single

bonjour,

J'étais en weekend, je vais tester cela ce soir.

Merci !!

 

[terry08200]

Bonsoir
Modifie ta variable

Dim toto As Single

C'est parfait !!!!!