Somme de plusieurs feuilles en fonction d'une cell

Tatsu -  
 Tatsu -
Bonsoir, Je suis en train de bricoler un petite tric avec excel et j'ai constaté que je pourrai faire un petit truc pas mal :
- J'ai plusieurs feuilles et dans chaque feuille il y a un resultat qui est a la cellule O1187 par exemple ce que j'essaie de faire c'est d'afficher la somme des valeurs de toutes ces cellules jusqu'a la feuille actuelle où je suis.( En gros , si je suis à la feuille 8 je devrais avoir la somme de toutes les cellules O1187 de la feuillle 1 à la feuille 8)
Voici ce que j'ai pu faire:
-Faire la somme: =SOMME('Feuille1:Feuille8'!O1187)
-Trouver la feuille actuelle: =STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;20)

Ce que je voudrai faire maintenant c'est combiner ces deux formules pour en faire qu'une ... Donc à la place de Feuille8 dans la somme je voudrai mettre la formule qui me donne la feuille actuelle.
Voila voila....
Merci.
Cordialement
A voir également:

3 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonsoir, suggestion (non testé):
=SOMME(INDIRECT("Sheet1:"&STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;20)&"'!O1187")) 
0
Tatsu
 
toujours la meme erreur....
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
0
Tatsu
 
Merci pour la réponse même si ce poste ne m'aide pas à avancer...
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
INDIRECT ne fonctionne pas avec plusieurs feuilles
Sinon tu peux passer par une fonction personnalisée à mettre dans un module dans l'éditeur VBA:
Function multisomme()
For n = 1 To ActiveSheet.Index
multisomme = multisomme + Sheets(n).Range("O1187")
Next
End Function


Ensuite dans la cellule de la feuille où tu désires la somme il te suffit d'entrer =multisomme()
0
Tatsu
 
Cette fonction ne passe pas...
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Elle marche parfaitement chez moi
As tu bien :
- ouvert éditeur VBA avec ALT+F11
- créé un module (Insertion - Module)
- copié coller la macro dans le module et fermé le module
- autorisé les macros ?

Si tu n'y arrives toujours pas poste un exemple de ton fichier sur mon-partage .fr, fais créer un lien que tu copies et reviens coller ici
Je regarderai cela demain, là je vais me coucher
0
Tatsu
 
Ca fonctionne merci ! dans le cas ou mes onglets ont des noms differents mais qu'ils y 'en a des specifiques que je voudrai récupérer par exemple j'ai des onglets J1,J2.......J10(J10 est l'onglet actuel)
0