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

3 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonsoir, suggestion (non testé):
    =SOMME(INDIRECT("Sheet1:"&STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;20)&"'!O1187")) 
    
    0
    1. Tatsu
       
      toujours la meme erreur....
      0
  2. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
    1. Tatsu
       
      Cette fonction ne passe pas...
      0
    2. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
       
      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
    3. 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