Différence entre total VBA et somme automatique

Question

Bonsoir le forum, Dans ma base excel, je copie les données correspondantes à la saisie dans un userform de la feuille "2009Paiements" vers la feuille "2011FTous". Dans le fichier compressé joint, afin de simplifier au maximum, je copie les enrergistrements correspondants à 2010 et à l'organisme 1 en cliquant sur le bouton "Exécuter macro". Sur "2011FTous" se trouvent en D5 à D7 et en K5 à K7 les totaux calculés par le code VBA. En contrôlant ces sommes en faisant une somme automatique, il s'avère que les montants calculés ne sont pas rigoureusement exacts. Exemple : en K6 : 34588.55 alors que la somme automatique R15:R119 correspondant à ce calcul me donne 34588.57. Les données en "2009Paiements" sont au format nombre à deux décimales, et dans le classeur l'option définir le calcul avec la précision au format affiché est activée. Par contre, en mettant dans mon code un "Stop" à l'endroit approprié, j'ai remarqué que parfois ce sont des nombres à 3 chiffres après la virgule qui sont comptabilisés. L'erreur doit certainement provenir de là, mais je ne sais pas comment la contrer. Je remercie par avance tous ceux et celles qui prendront de leur temps pour examiner ce problème. Cordialement Joseph...

Dan · Answer

Ton fichier ne comporte pas le code que tu utilises. Difficile donc de te dire ce qui ne va pas. Vois du coté des intructions ROUND Amicalement...

Dan · Answer

Re, Je n'arrive pas à exécuter ton code, j'ai toujours une erreur à Lastrow... Peut être voir du coté des variables à mettre en Double au lieu de single. Amicalement...

Dan · Answer

Re,

C'est un peu technique mais avec Double, tu travailles en double précision (8 octets) tandis qu'avec Single tu es en simple précision.

Fais ce test avec ce code, tu vas comprendre de suite

Sub test()
Dim toto As String
Dim tata As Single
 toto = "1234567.89"
 tata = Val(toto)
 MsgBox tata
 toto = "1234567,89"
 tata = CDbl(toto)
 MsgBox tata
End Sub

Ensuite refais le test mais en remplaçant Dim tata as single par Dim tata as double et vois les résultats avec Msgbox.

Amicalement

Dan · Answer

Re,

J'ai dû transférer ton fichier dans un nouveau car pas moyen d'exécuter le code. Il y avait une erreur sur tes feuilles mais laquelle... mystère !

Là cela fonctionne mais tu pourrais simplifier la fin du code aussi.

....
With Sheets("2011FTous")
    .Range("C3").Value = b
    .Range("C5").Value = PO2MTDPRO
    .Range("C6").Value = PO2MTPRO
    .Range("C7").Value = PO2RETROPRO
    .Range("J3").Value = nomfin
    .Range("J5").Value = PO2MTDPAY
    .Range("J6").Value = PO2MTPAY
    .Range("J7").Value = PO2RETROPAY

'Formatage
    .Range("A15:V" & cptPO2).Interior.ThemeColor = xlThemeColorDark1
    .Range("A15:A" & cptPO2).NumberFormat = "0000000"
    .Range("C15:C" & cptPO2).NumberFormat = "000"
    .Range("E15:E" & cptPO2).NumberFormat = "dd/mm/yyyy"
    .Range("F15:F" & cptPO2).NumberFormat = "#,##0.00"
    .Range("F15:F" & cptPO2).HorizontalAlignment = xlRight
    .Range("G15:G" & cptPO2).NumberFormat = "dd/mm/yyyy"
    .Range("H15:H" & cptPO2).NumberFormat = "#,##0.00"
    .Range("H15:H" & cptPO2).HorizontalAlignment = xlRight
    .Range("J15:J" & cptPO2).NumberFormat = "dd/mm/yyyy"
    .Range("K15:K" & cptPO2).NumberFormat = "#,##0.00"
    .Range("K15:K" & cptPO2).HorizontalAlignment = xlRight
    .Range("M15:M" & cptPO2).NumberFormat = "000"
    .Range("O15:O" & cptPO2).NumberFormat = "dd/mm/yyyy"
    .Range("P15:P" & cptPO2).NumberFormat = "#,##0.00"
    .Range("P15:P" & cptPO2).HorizontalAlignment = xlRight
    .Range("Q15:Q" & cptPO2).NumberFormat = "dd/mm/yyyy"
    .Range("R15:R" & cptPO2).NumberFormat = "#,##0.00"
    .Range("R15:R" & cptPO2).HorizontalAlignment = xlRight
    .Range("T15:T" & cptPO2).NumberFormat = "dd/mm/yyyy"
    .Range("U15:U" & cptPO2).NumberFormat = "#,##0.00"
    .Range("U15:U" & cptPO2).HorizontalAlignment = xlRight

End With
End Sub

Une chose dans ton fichier. Sur tes deux feuilles tu as mis un motif blanc par Format / Cellule / Motifs. A éviter à tout prix !!! cela fait prendre du poids à ton fichier inutilement.

Si tu veux une feuille blanche, va décocher l'option "quadrillage" dans le menu Outils -> options -> onglet "affichage".

Amicalement