Somme : Excel contre VBA

Bonjour,
J'ai un peu le même souci je crois.
J'ai un tableau avec deux colonnes de nombres. Leur somme Excel fait 0 : =somme ( [la colonne] ).
D'ailleurs quand je sélectionne les lignes Excel me rend aussi 0 dans la barre du bas ( sous la barre de curseur droite/gauche).
Par contre, quand je somme par VBA, je ne tombe jamais juste ! ( cf. PJ ).
Auriez-vous une idée du comment faire ?
La somme est destinée à des comptables pour qui 0,01€ est important ( c'est peut-être l'arbre qui cache ... etc );)
Merci de votre aide.
Et portez-vous bien, en ces temps particuliers.

Bonjour,

Essayez avec ceci :

Code:

---

1 2 3 4 5 6 7 8

Sub Cumul() Dim Cumul As Integer Dim MaPlage As Range Set MaPlage = Range("B2:B271") MaSomme = Application.WorksheetFunction.Sum(MaPlage) MsgBox MaSomme   End Sub

---

Bonjour,

C'est effectivement un problème d'arrondi. (sans parler du type Long qui ignore la partie décimale)
Il y a 2 petits bug dans ta démo (on comprend malgré ça) : c'est pas la colonne 4 mais la 2 qu'il faut ajouter et tu print 2 fois S_doub au lieu de S_sing

Pour des calculs financiers le type recommandé est Currency
Si tu veux des calculs encore plus précis il faut utiliser le type Decimal qui est en réalité un sous-type de Variant.
La démo :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Sub test() Dim i As Long Dim S_sing As Single Dim S_doub As Double Dim S_curr As Currency Dim S_deci As Variant 'Variant/Decimal   For i = 2 To 271 S_sing = S_sing + Cells(i, 2) S_doub = S_doub + Cells(i, 2) S_curr = S_curr + Cells(1, 2) S_deci = S_deci + CDec(Cells(1, 2)) Next i Debug.Print "S_sing = "; S_sing Debug.Print "S_doub = "; S_doub Debug.Print "S_curr = "; S_curr Debug.Print "S_deci = "; S_deci   End Sub 'S_sing = -0,185 'S_doub = 4,07453626394272E-10 'S_curr = 0 'S_deci = 0

---

Il faut toutefois tenir compte du fait que la saisie d'un nombre dans une cellule a pour conséquence de transformer le nombre saisi en type Double, ce qui entraine automatiquement une perte de précision.
Pour éviter cette perte de précision, il faut saisir les nombres dans une cellule au format texte (avec tous les risques d'erreur de saisie que ça laisse passer) afin qu'Excel ne le convertisse pas en nombre de type Double, et il faut assurer cette conversion directement avec le VBA.

Citation:

---

Envoyé par Malick

Bonjour,

Essayez avec ceci :

Code:

---

1 2 3 4 5 6 7 8

Sub Cumul() Dim Cumul As Integer Dim MaPlage As Range Set MaPlage = Range("B2:B271") MaSomme = Application.WorksheetFunction.Sum(MaPlage) MsgBox MaSomme   End Sub

---

---

Bien essayé ( et je garde ça sous le coude ), mais ça donne : 3,54702933691442E-11 !
La bonne réponse est celle de Patrice740 : Type = Currency.
Merci quand même d'avoir pris le temps de répondre.

Et ça fonctionne !
Type Currency ! Je n'aurai jamais pensé à ça !
Merci beaucoup Patrice740.