Discussion :

[JoeJoeH]

Bonjour, je vais vous exposer mon problème en espérant que vous pourrez m'aider.
En fait, je dois faire une boucle dans un tableau de factures (listant tout les articles en colonne E de toute les factures en colonne F) et, sachant qu'une même facture contient plusieurs fois le même article, je dois additionner les lignes en doublon pour qu'il y ait au final une seule ligne par article par facture.

Je sais pas si c'est très clair, voici le code que j'ai pour l'instant et qui me donne une "Erreur d'exécution '-2147417848 (80010108)':
Erreur automation, l'objet invoqué s'est déconnecté de ses clients"

Voici le code :

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
    For m = 5 To lignefin2
        m = n
        Do While Range("E" & n).Value = Range("E" & n + 1).Value And Range("F" & n).Value = Range("F" & n + 1).Value
            Range("J" & n).FormulaR1C1 = Range("J" & n).Value + Range("J" & n + 1).Value
            Range("K" & n).FormulaR1C1 = Range("K" & n).Value + Range("K" & n + 1).Value
            Range("M" & n).FormulaR1C1 = Range("M" & n).Value + Range("M" & n + 1).Value
            Range("N" & n).FormulaR1C1 = Range("N" & n).Value + Range("N" & n + 1).Value
            Range("O" & n).FormulaR1C1 = Range("O" & n).Value + Range("O" & n + 1).Value
            Range("P" & n).FormulaR1C1 = Range("P" & n).Value + Range("P" & n + 1).Value
            Range("Q" & n).FormulaR1C1 = Range("Q" & n).Value + Range("Q" & n + 1).Value
            Range("R" & n).FormulaR1C1 = Range("R" & n).Value + Range("R" & n + 1).Value
            Range("S" & n).FormulaR1C1 = Range("S" & n).Value + Range("S" & n + 1).Value
            Rows(n + 1).Select
            Selection.Delete Shift:=xlUp
            n = n + 1
        Loop
    Next m

EDIT : J'ai aussi essayé avec .Value au lieu du .FormulaR1C1 mais ça ne marche pas non plus.


Je viens donc chercher votre aide en espérant pouvoir résoudre ce problème ! Merci d'avance !

[gFZT82]

Bonjour JoeJoeH,

Voici une solution à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    For n = lignefin2 To 5 Step -1
        If Range("E" & n).Value = Range("E" & n - 1).Value And Range("F" & n).Value = Range("F" & n - 1).Value Then
            Range("J" & n) = Range("J" & n) + Range("J" & n - 1)
            Range("K" & n) = Range("K" & n) + Range("K" & n - 1)
            Range("M" & n) = Range("M" & n) + Range("M" & n - 1)
            Range("N" & n) = Range("N" & n) + Range("N" & n - 1)
            Range("O" & n) = Range("O" & n) + Range("O" & n - 1)
            Range("P" & n) = Range("P" & n) + Range("P" & n - 1)
            Range("Q" & n) = Range("Q" & n) + Range("Q" & n - 1)
            Range("R" & n) = Range("R" & n) + Range("R" & n - 1)
            Range("S" & n) = Range("S" & n) + Range("S" & n - 1)
            Rows(n - 1).Delete Shift:=xlUp
        End If
    Next n

Cordialement.

[JoeJoeH]

Bonjour,

Eh bien, rien à redire, ça marche et je te remercie vraiment pour cette réponse très rapide et efficace !