Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Somme

2 réponses
Avatar
Brat'ac
Bonjour,

Si dans une cellule je fais la somme
suivante:15+42.82+15+15+30.08+30.08
j'ai comme résultat 147.98 si je fais cette même somme dans la même
cellule par VBA j'ai 148
(cellule au format monétaire)
Je comprend pas ?

Une idée, Merci

2 réponses

Avatar
MichD
Bonjour,
Ceci affiche bien 147.98 comme résultat
MsgBox Application.Sum(15 + 42.82 + 15 + 15 + 30.08 + 30.08)
Si tu utilises une variable, cette variable doit avoir le type "Double" ou "Currency"
Dim X As Currency
X = Application.Sum(15 + 42.82 + 15 + 15 + 30.08 + 30.08)
Si tu retournes le résultat dans une cellule, assure-toi du format de la cellule.
With range("A1")
.NumberFormat = "# ### ##0.00"
.value = Application.Sum(15 + 42.82 + 15 + 15 + 30.08 + 30.08)
End With
MichD
Avatar
Brat'ac
MichD a exposé le 10/05/2017 :
Bonjour,
Ceci affiche bien 147.98 comme résultat
MsgBox Application.Sum(15 + 42.82 + 15 + 15 + 30.08 + 30.08)
Si tu utilises une variable, cette variable doit avoir le type "Double" ou
"Currency"
Dim X As Currency
X = Application.Sum(15 + 42.82 + 15 + 15 + 30.08 + 30.08)
Si tu retournes le résultat dans une cellule, assure-toi du format de la
cellule.
With range("A1")
.NumberFormat = "# ### ##0.00"
.value = Application.Sum(15 + 42.82 + 15 + 15 + 30.08 + 30.08)
End With
MichD

Super,c'est OK
Merci et bonne soirée.