erreur 1004 Formule trop longue

Question

Bonjour j'ai un gros soucis lorsque je tente de remplacer une chaine de caractere dans une cellule voici mon code:

    Sheets("Tableau").Select
    
    Cells.Select
    Application.CutCopyMode = False
    Selection.Replace What:="Organisation Name:", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False

Mon incomprehension vient de lorsque je l'execute chez moi sur office Xp
tout fonctionne mais au travail avec Excel 2000 j'obtiens l'erreur:
Erreur 1004 formul trop longue et le debug pointe sur cette ligne!
Je ne vois pas d'ou cela peut provenir Merci d'avance

jhary69 · Answer

salut,

Ca vient d'une limitation d'Excel quant a la longueur du texte d'une formule ... si ca marche en XL XP et pas en XL 2000 c'est entre les 2 versions ils ont du augmenter la taille maxi d'une formule ...

La solution serait de d&#233;composer ta formule dans plusieurs cellules et de regrouper ca au final en allant piocher dans tes cellules intermediaires ... c'est chiant mais j'ai pas trouv&#233; mieux (j'ai eu le meme pb sur un Excel XP avec des formules de la mort !). 

exemple :

='c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A1 +  'c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A2 + 'c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A3 + 'c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A4 

tu fais : 

cellule 1 : ='c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A1
cellule 2 : ='c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A2
cellule 3 : ='c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A3
cellule 4 : ='c:\mes documents\toto\[monfichier&#224;moi.xls]Feuil1'!A4

puis cellule 5 = cellule 1 + cellule 2 + cellule 3 + cellule 4

A+

Christophe.

PS: Excel plante le meme genre de pb lorsqu'on modifie la liaison a un fichier et que le nouveau chemin du fichier est + long et bloque au niveau de la taille de la formule !

cs_metek · Answer

heu je sais pas si j'ai tout bien compris mais les fichiers possedent au minimum
2500 cellules par colonne de plus avant de rajouter des données c'est a dire de rajouter des colonnes cette fonction marchait tres bien sous XL 2000!
Quand je regarde mon tableau de sortie apres le debug je vois que cette fonction
s'est éxécutée sur plusieurs lignes avec succés avant le plantage.....

jhary69 · Answer

re,

Vu le message que tu obtiens, c'est ta formule qui est trop longue (ou alors XL ressort pas le bon msg d'erreur)

La fonction s'arrete sur la formule qui la fait planter ... du coup tu recherches la 1ere cellule o&#249; le remplacement n'a pas ete fait et tu devrais avoir celle qui &#224; fait planter.

Verifie sur cette cellule si &#224; la main tu peux faire le remplacement que tu veux faire par prog. Si ca marche je vois pas ... si ca marche pas non plus tu auras peut etre un msg plus explicite sur Excel ! 

A+

Christophe.

cs_metek · Answer

et bien je crois que c'est la cata a la main en effectuant remplacer ca marche!!
Je vais tenter de ne selectionner que la colonne on ne sait jamais!

Erreur 1004 Formule trop longue

4 réponses

Discussions similaires