Discussion :

[PAPAJUJUCHACHA]

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.

[Malick]

Bonjour,

Essayez avec ceci :

Code :

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

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

[PAPAJUJUCHACHA]

Bonjour,

Essayez avec ceci :

Code :

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

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.

[Patrice740]

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 VBA :

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

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.

[PAPAJUJUCHACHA]

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