Bonjour,

J'ai un problème que je n'arrive pas à résoudre, j'ai une idée sur le problème mais je n'arrive pas à le contourner.

Voici une partie de mon script
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
20
21
22
23
24
25
26
Cells(k + 1, 2).Value = "Ajustement"

Range("C" & k + -1 & ":Q" & k + -1 & "").Select
Selection.Copy
Range("C" & k + 1 & ":Q" & k + 1 & "").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


Range("B" & k + 1 & ":Q" & k + 1 & "").Select
Selection.Copy
Range("B" & k + 1 & ":Q" & k + j - 3 & "").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


Cells(k + 1, 21).Select
ActiveCell.FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC1," & agregat & "!C1,1,0)),0,-SUMIFS(C,C1,RC1,C32,""PREV TOTAL"")+SUMIFS(" & agregat & "!C[39]," & agregat & "!C1,Analyse!RC1)*1000)"
Range("U" & k + 1 & "").Select
    Selection.AutoFill Destination:=Range("U" & k + 1 & ":AC" & k + 1 & ""), Type:=xlFillDefault
Range("U" & k + 1 & ":AC" & k + 1 & "").Select
    Selection.AutoFill Destination:=Range("U" & k + 1 & ":AC" & k + j - 3 & ""), Type:=xlFillDefault

Range("A" & k + 1 & ":A" & k + j - 3 & "").Select
Selection.Copy
La partie en rouge est celle qui fait planter mon code. (Erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet)

Je fais tourner le code sur 12 fichiers qui sont fait de la même façon et ont le même nombre de colonnes, seuls les et le nombre de lignes diffèrent.

Mon code tourne parfaitement sur 10 de mes fichiers mais plante au même endroit pour 2, à savoir ceux avec le plus gros nombre de lignes
Du coup je pense que le problème vient de là mais je ne sais pas comment le résoudre...

Merci de vos réponses