Discussion :

[JoeJoeH]

Bonjour, j'ai un petit problème en VBA,

En fait, j'ai un fichier de factures (avec les données provenant d'une base de données) avec pas mal de formules entrées en VBA, et lors de la mise à jour, je créé des lignes Total pour chaque facture.
Toute les formules de cette ligne marchent, à l'exception d'une seule, qui m'indique un résultat erroné :

Partie du code integrée dans une boucle:

Code :

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
                Dim rg1 As Range
                Set rg1 = ActiveSheet.Range(Cells(j - 1, 12), Cells(i, 12))
                ActiveSheet.Cells(j, 12).Formula = "=SUM(" & rg1.AddressLocal & " )"
     
                Dim rg2 As Range
                Set rg2 = ActiveSheet.Range(Cells(j - 1, 13), Cells(i, 13))
                ActiveSheet.Cells(j, 13).Formula = "=SUM(" & rg2.AddressLocal & " )"

                Dim rg3 As Range
                Set rg3 = ActiveSheet.Range(Cells(j - 1, 14), Cells(i, 14))
                ActiveSheet.Cells(j, 14).Formula = "=SUM(" & rg3.AddressLocal & " )"

                Dim rg4 As Range
                Set rg4 = ActiveSheet.Range(Cells(j - 1, 15), Cells(i, 15))
                ActiveSheet.Cells(j, 15).Formula = "=SUM(" & rg4.AddressLocal & " )"

               Dim rg1337 As Range
                Set rg1337 = ActiveSheet.Range(Cells(j - 1, 16), Cells(i, 16))
                ActiveSheet.Cells(j, 16).Formula = "=SUM(" & rg1337.AddressLocal & " )"

Celle en rouge m'indique un résultat incohérent et différent du résultat de somme qui s'affiche lorsque l'on sélectionne la plage de cellules manuellement... Il s'agit de la colonne O ("PMP") qui pose problème.
Quelqu'un saurait-il pourquoi ce problème de sommes?

[Pierre Fauconnier]

Salut.

Si ton code ne plante pas, tu peux regarder la formule donnée en J16. Cela t'aidera à voir la formule créée par ton code, et tu comprendras probablement le problème. Sinon, uu dois procéder par étapes:

• Que vaut j?
• Quelle est l'adresse de rg4?
• que donne "=SUM(" & rg1337.AddressLocal & " )"?

[JoeJoeH]

Bonjour, bien d'abord je me suis trompé, c'est rg4 qui donne un mauvais résultat. Je vais corriger le post original.

Etant incrémenté dans une boucle, j correspond à la ligne actuelle. Donc j-1 à la ligne juste au dessus.
i correspond à la première ligne de la facture actuelle, donc Oi:Oj-1 = tous les articles de la même facture. rg4 me donne pour la facture 9 (une des factures à problème) $O$24:$O$34.

=SUM(" & rg4.AddressLocal & " ) devrait me donner 5189,98, mais elle me donne 5189,12. Sur certaines factures il y a des différences en centaines.

J'ai remarqué que la ligne totale m'indique une valeur erronée seulement pour les factures ou il y a au moins un article en "KG" (voir le fichier joint, colonne K), et ce seulement pour le total en O. Les autres totaux sont corrects.

... Le VBA me rend vraiment confus parfois. ._.

[Pierre Fauconnier]

Tu ne réponds pas à la question...

Ton code fonctionne-t-il sans problèmes?

Si oui, regarde la formule créée qui pose problème. Quelle est la formule créée (pas son résultat, mais la formule en elle-même?) C'est cela qui pourra probablement te mettre sur la piste de la solution.

[JoeJoeH]

Oups, pardon. Le code s'exécute sans erreurs, et la formule donnée est "=SOMME($O$24:$O$34 )".

Ce que je ne comprend pas, c'est qu'en exécution pas à pas il met le bon résultat.. Et maintenant à chaque exécution du code il met le bon résultat... Pourtant j'ai rien changé du tout.

[galopin01]

Bonjour,
Dans les options Excel / Options Avancées / Cocher
Définir le calcul avec la précision au format affiché.
A+

[JoeJoeH]

... Et puis tout ça pour qu'on vienne me signaler qu'une personne m'a dit n'importe quoi et que je peux virer cette colonne car elle ne sert à rien. e_e

Merci de l'aide quand même du coup.