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 !
Partager