Problème d'arrondi

Bonjour,

Dans des procédures, j'utilise un basic

For w = 6 To Tmp + 6
        V0 = V0 + ActiveSheet.Cells(w, 2).Value
        P1 = P1 + ActiveSheet.Cells(w, 3).Value
        P2A = P2A + ActiveSheet.Cells(w, 5).Value
        P2F = P2F + ActiveSheet.Cells(w, 6).Value
        Ec = Ec + ActiveSheet.Cells(w, 7).Value
     Next w
'suivi de
    Sheets("Tableau de Bord P2 V").Cells(Tmp, 2) = V0
    Sheets("Tableau de Bord P2 V").Cells(Tmp, 3) = P1
    Sheets("Tableau de Bord P2 V").Cells(Tmp, 5) = P2A
    Sheets("Tableau de Bord P2 V").Cells(Tmp, 6) = P2U
    Sheets("Tableau de Bord P2 V").Cells(Tmp, 7) = Ec

Afin de sommer mes lignes par colonnes pour rajouter une ligne Total.

Cependant je m'aperçois que je perds en précision (je perds mes centièmes qui sont arrondis).

Savez vous comment garder mon résultat au centième sans utiliser la fonction somme() d'excel car ma plage varie.

merci

Edit : J'ai déclaré mes variables As Long, Cela vient il de là ? Si oui quelle est la bonne déclaration ? / ++> As Currency ça passe tout de suite mieux :s

Bonjour,

As-tu essayé la déclaration avec DOUBLE ou CURRENCY au lieu de LONG

Si ok, merci de cloturer ton fil en cliquant sur le v vert à coté du bouton EDITER

A te relire