Somme de plusieurs feuilles en fonction d'une cell

Fermé
Tatsu - 29 avril 2018 à 21:48
 Tatsu - 30 avril 2018 à 09:37
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 23342 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 novembre 2024 Ambassadeur 1 551
29 avril 2018 à 23:21
bonsoir, suggestion (non testé):
=SOMME(INDIRECT("Sheet1:"&STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;20)&"'!O1187")) 
0
toujours la meme erreur....
0
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
29 avril 2018 à 23:32
0
Merci pour la réponse même si ce poste ne m'aide pas à avancer...
0
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
30 avril 2018 à 00:06
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
Cette fonction ne passe pas...
0
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
30 avril 2018 à 00:55
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
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