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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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