Sommer dynamiquement même cellule de plusieurs feuilles

Bonjour,

J'ai besoin de votre aide

J'ai 20 feuilles que j'ai nommé de 1 à 20

En A1 de chaque feuille j'ai le chiffre 1 pour la feuille 1, 2 pour la feuille 2 etc...

Exemple

Sur la feuille 5 en cellule O4, je souhaite sommer les valeurs N4 des feuillles 1 à 5 (Pour rappel en A1 de la feuille 5, j'ai le chiffre 5)

Sur la feuille 7 en cellule O4, je souhaite sommer la valeur N4 des feuillles 1 à 7 (Pour rappel en A1 de la feuille 7, j'ai le chiffre 7)

Etc...

Je sais qu'il est possible de trouver le résultat en adoptant cette formule : Somme ('1:7'!N4) mais je souhaiterai créer une fomule dynamique qui utilise la valeur que j'ai en A1 sur chaque feuille. J'essaye avec la fonction INDIRECT mais je ne m'en sors pas

Merci d'avance pour votre aide

Bonjour,

Si VBA est admis :

Function SommeIncrementee(ByVal NumeroOnglet As Integer) As Variant

Dim I As Integer
Dim NomOnglet As String

   Application.Volatile
   SommeIncrementee = 0
   For I = 1 To Sheets.Count
       Select Case Sheets(I).Name
              Case 1 To NumeroOnglet
                   SommeIncrementee = SommeIncrementee + Sheets(I).Range("N4")
       End Select
   Next I

End Function

Sub MettreEnPlaceLaFormule()

Dim I As Integer

   For I = 1 To Sheets.Count
       Select Case Sheets(I).Name
              Case 1 To 20
                   Sheets(I).Range("O4").Formula = "=SommeIncrementee(A1)"
       End Select
   Next I

End Sub

Merci beaucoup pour ton aide Eric Kergresse mais sans VBA est ce possible ?

Sans doute que oui, mais je ne suis pas assez costaud en formules pour vous aider.

bonjour

pour cela ,un fichier en pièce jointe serait bien utile

cordialement

J'ai créé un fichier exemple ci-joint

But du jeu : Trouver le résultat en D1 de chaque feuille

Merci

un essai?

Merci fcyspm30 mais je souhaiterai que cette formule soit dynamique afin que lorsque je crée de nouvelles feuilles ce soit automatique

Je pensais utiliser la fonction INDIRECT et me servir du chiffre que j'indique en A1 de chaque feuille mais je ne trouve pas

Bonjour,
Une proposition.
Cdlt.

=SI(A1=1;C1;INDIRECT("'"&A1-1&"'!D1")+C1)

Merci Jean-Eric

C'est presque ça car je rencontre un seul soucis:

Quand j'étire la formule vers le bas, D1 dans la formule que tu proposes, reste figé alors qu'il n'y a pas de $

Je souhaiterai en étirant vers le bas, D2, D3 etc...

Bonjour,
Essaie ainsi :

=SI($A$1=1;C1;INDIRECT("'"&($A$1-1)&"'!"&ADDRESS(ROW();4;4))+C1)

Cdlt.

Merci mais j'obtiens #NOM?

Ta formule devient trop compliqué pour moi

Re,
Le fichier pour appréhender la chose.
Cdlt.

Nous ne devons pas avoir la même version d'excel car de l'onglet 2 à 5 j'ai que des #VALEURS

J'ai Excel 2016 au passage

Re,
Les formules utilisées sont basiques.
Je ne comprends pas. On parle bien de mon fichier ?
Cdlt.