XL 2016 Addition de cellules de plusieurs feuilles

[sev31130]

Bonjour
encore une fois j'ai besoin de vos services,
je voudrais sur la feuille tot.gene marquer le résultat de l'addition d'une cellule (toujours la même sur chaque feuille) et je ne sais pas faire

vous comprendrez mieux peut être en voyant l'explication sur le fichier
par avance merci

 

[job75]

Re,

Voyez ce fichier (3), c'est votre fichier du post #12.

L'en-tête "TOTAL 15" n'existait pas, je l'ai créée.

Pour que les feuilles des années soient mises à jour il faut que la macro les active :

Private Sub Worksheet_Activate()
Dim t(1 To 20, 1 To 5), w As Worksheet, nomtab$, total As Range, i, j
Application.ScreenUpdating = False
For Each w In Worksheets
  If w.Name Like ("####") Then
    nomtab = "TOTAL " & Right(w.Name, 2)
    Set total = w.Cells.Find(nomtab, , xlValues, xlWhole)
    If total Is Nothing Then
      MsgBox "Tableau '" & nomtab & "' non trouvé dans la feuille '" & w.Name & "'." _
        & vbLf & "Cette feuille n'est donc pas étudiée.", 48
    Else
      w.Activate 'pour MAJ de la feuille
      For i = 1 To 20
        For j = 1 To 5
          t(i, j) = t(i, j) + Val(total(i + 2, j + 1))
        Next j, i
    End If
  End If
Next
Application.EnableEvents = False 'évite la relance de cette macro
Me.Activate 'revient sur la feuille
[D7:H26] = t
Application.EnableEvents = True
End Sub

A+

 

[sev31130]

c'est nickel
que dire , le MERCI que je voudrais dire, incommensurable
Je suis comblé

suis navré d'être chiant à ce point