Discussion :

[louisreglain]

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

[Menhir]

plante au même endroit pour 2, à savoir ceux avec le plus gros nombre de lignes

Combien de lignes ?
Quel est le type de la variable k ?

[halaster08]

Bonjour,

@Menhir

Si tu penses à une erreur de dépassement de la capacité d'une variable int, n'aurait il pas été logique que l'erreur se produise sur une ligne précédente? car sur la ligne d'erreur il n'utilise pas k, alors qu'il est utilisé plusieurs fois sur les lignes précédentes.

@louisreglain

Si je lis bien, la seule variable sur la ligne d'erreur c'est "agregat", as tu pensé a vérifier sa valeur au moment de l'erreur (via un "debug.print agregat" par exemple).

Il y a une limite de caractère par formule il me semble, peut être dépasses tu ce nombre.

[louisreglain]

Ah oui, c'est peut être ça, outre le fait qu'il s'agisse des 2 fichiers avec le plus grand nombre de lignes, il s'agit aussi des 2 seuls fichiers ou il y a un trait d'union.
Je vais essayer de changer ça pour voir si ça règle le problème.
Je vous tient au courant;

Merci

[Menhir]

Il y a une limite de caractère par formule il me semble, peut être dépasses tu ce nombre.

32 767 caractères.
Il faudrait donc que sa variable contiennent plus de 10 000 caractères.

[louisreglain]

Bien joué ! le problème venait bien de là... un petit trait d'union qui bloquait tout.

Merci beaucoup

[cerede2000]

32 767 caractères.
Il faudrait donc que sa variable contiennent plus de 10 000 caractères.

Oula non pas tant que ça !
Longueur du contenu des formules : 8192 caractères

https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR

[halaster08]

Effectivement même a 8192 caractère max il était peu probable que ce soit ça l'erreur, je ne me souvenait pas du chiffre, je le voyais plus petit.

Pour ce qui est des trait d'union dans le nom des fichiers, si tu souhaite les garder, normalement entourer le nom par des ' (le symbole sous le chiffre 4 (dont je connais le nom mais qui refuse de sortir ce matin)) devrait permettre de résoudre le problème, en tout cas ça marche pour les espaces.