Discussion :

[psunk]

Bonjour,
je cherche a mettre dans une cellule d'une feuille la somme d'une cellule d'autre feuilles... j'ai parcouru les forums et ne trouve pas de fonctions qui marche
exemple:

Code :

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

Cells(3, 3).Formula = "=SUM(" & Sheets(1).Name & ":" & Sheets(f).Name & "!Q8)"

ou f est le nombre de feuilles de mon fichier (c'est une variable)
je ne comprend pas pourquoi ca ne marche pas...

f est le nombre de feuilles -1 (la feuille active)...

[zooro]

Bonjour,

Je ne sais pas si une fonction permet de sommer directement les cellules de plusieurs feuilles.

Moi je ferais plutôt une boucle sur toutes les feuilles, en ajoutant à chaque fois au total la somme des cellules de la feuille.

[psunk]

le probleme c'est que j'ai besoin d'une formule dans la case etant donné que ce que j'ecris permet de mettre en page des fichiers qui sont remplis apres

[zooro]

Rien ne t'empêche de mettre ensuite le résultat du calcul dans une cellule, voire d'appeler ta fonction depuis la cellule en question.

Mais sinon, tu peux t'en sortir en découpant ton calcul en plusieurs morceaux.
Au lieu de faire :

Code :

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

Cells(3, 3).Formula = "=SUM(" & Sheets(1).Name & ":" & Sheets(f).Name & "!Q8)"

tu peux utiliser plutôt une somme de SUM, avec un SUM pour chaque feuille.

[psunk]

je comprend pas trop ce que tu veux dire ...

[zooro]

A priori, deux solutions :
1. Tu écris une fonction VBA qui fait le calcul, par exemple avec une boucle, et tu appelles cette fonction directement depuis ton classeur en mettant dans la cellule où tu veux le résultat "=ma_fonction()"

2. Tu mets directement dans ta cellule une formule du genre :

Code :

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

"=SUM(Feuil1!A:A)+SUM(Feuil2!A:A)+...+SUM(Feuil3!A:A)"

à adapter à ton besoin exact, bien sûr.

[bidou]

un truc comme

Code :

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

1
2
3
4
5
6
Dim strtmp As String, cmpt As Long
 
For cmpt = 2 To ActiveWorkbook.Worksheets.Count
    strtmp = strtmp & ActiveWorkbook.Worksheets(cmpt).Cells(3, 3).Address(True, True, xlA1, True) & ";"
Next cmpt
ActiveCell.FormulaLocal = "=somme(" & strtmp & ")"