Discussion :

[polynesian turtle]

Bonjour à tous,

Je souhaiterais savoir si il est possible de réduire une longue (très longue) formule dans Excel 2002. Je m'explique :
Je veux faire la SOMME d'une même cellule se trouvant dans de nombreux fichiers (tous sous la même racine).
Par exemple, j'ai 30 fichiers appelés "psf1.xls", "psf2.xls", "psf3.xls"...
La formule de base est donc :

Code :

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

='D\Mes documents\[psf1.xls]Feuil1'!A1+'D\Mes documents\[psf2.xls]Feuil1'!A1+'D\Mes documents\[psf3.xls]Feuil1'!A1+...

Mais après une quinzaine d'arguments, Excel m'indique que ma formule est trop longue. Il me reste biensûr la possibilité de faire le calcul en plusieurs fois dans plusieurs cellules, mais je dois renouveler cette opération de nombreuses fois avec plein d'autres cellules. Ce serait alors très fastidieux.

Merci donc à ceux qui pourront m'aider (et aussi à ceux qui n'auront pas réussi !)

[Fvandermeulen]

Bonjour,
Désolé mais je n'ai rien trouver d'autre qu'une parade en utilsant une feuille 'intermédiaire', ce qui me rassure, c'est que visiblement personne n'est vraiment très inspiré...

L'idée: Tu ajoutes une feuille, en A1 tu fais ton lien vers ton fichier psf1!a1; en b1 ton lien vers psf2!a1, etc.
Tu pourras alors faire la somme de la ligne un dans la cellule voulue.

J'imagine que ce n'est pas ce que tu espérais mais ça va au moins de dépanner.

A+

[Gorfael]

Salut à tous
peut-être en créant une fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Somme_Feuille(Rad As String, A As Integer, B As Integer, Cel As String) As Double
Dim X As Integer
Dim Chem As String
For X = A To B
    'chem ="D\Mes documents\psf" & 1 & ".xls"
    Chem = Rad & X & ".xls"
    Workbooks.Open Chem
    Somme_Feuille = Somme_Feuille + ActiveWorkbook.Sheets("Feuil1").Range(Cel)
    ActiveWorkbook.Close SaveChanges:=False
Next X
End Function

où les arguments seraient :
Rad : D\Mes documents\psf Le chemin complet et le radical du fichier
A : la première valeur incrémentielle du fichier (dans l'exemple 1)
B ; la dernière valeur incrémentielle du fichier (4 ou plus)
Cel : l'adresse de la cellule à sommer (A1)

Mais je n'ai pas testé et s'il manque un fichier dans la série entre A et B il y aura une erreur.
A+