Addition de plusieurs pages

Bonjour le forum

Existe t il un moyen de faire une somme de plusieurs pages.

Je m'explique j'ai un classeur qui contient x pages et j'aimerais additionné le nombre de pièces de chaques pages qui se situent dans la colonne E

Et a la fin du calcul avoir un msg box qui me donne le résultat.

Je vous ai fait un tableau avec quelques feuilles mais la disposition est la même. A part que j'ai une 30 aines de pages et que le nombres de cellules n'est pas le même dans chaque page

Merci d'avance

Bonjour

Bizarre ces tableaux sans titre de colonnes...

Crée un onglet vide début avant ceux concernés, un onglet fin vide après et une formule 3 D

=SOMME(début:fin!E:E)

Merci 78chris.

Je cherchais une solution par vba. (Oubli de précision)

Je rejoins un fichier avec les titres tel que mon fichier est fait

Bonjour à tous,

ah, trop tard, j'ai travaillé sans les titres, pas grand chose à faire pour l'adapter.
Regarde si ça te va.
eric

PS : Chris, les éléments ne sont pas sur les mêmes lignes

RE

eriiic a écrit :

eric

PS : Chris, les éléments ne sont pas sur les mêmes lignes

Comme tu peux le voir, j'ai additionné tout : il n'est pas précisé dans la demande que c'est par groupe sur une ou n colonnes...

Je n'ai pas regardé le code

Sur 2016 on fait cela en quelques clics sur PowerQuery...

Merci Eric,

Ce n'est pas exactement ce que je souhaite.

Je souhaite faire une addition du nombres de pièces (sans pages récapitulative) et afficher le résultat dans une Msgbox .

Chris,

Je ne sais pas utiliser PowerQuery .

Mais merci de ta proposition

Bonsoir tout le monde,

A tester:

Sub test()
 Dim compteur As Integer
 Dim dl As Long
 Dim ws As Worksheet

 Application.ScreenUpdating = False

 compteur = 0

  For Each ws In ThisWorkbook.Worksheets
   dl = ws.Range("A" & Rows.Count).End(xlUp).Row
    compteur = compteur + Application.WorksheetFunction.Sum(ws.Range("E3:E" & dl))
  Next ws
  MsgBox "Total :" & Chr(10) & compteur & "  pièces"
End Sub

CTRL + e pour exécuter la macro.

Bonne soirée,

Merci xorsankukaï

En fouillant un peu plus, j'ai pu trouver une solution.

Et c'est a peu de chose près ce que tu me propose et ca fonctionne nickel.

Merci a tous pour vos réponses

Re à tous

On peut aussi VBAiser la formule donnée dès la début

Sub total()

    Z = Application.Evaluate("SUM('" & Worksheets(1).Name & ":" & Worksheets(ThisWorkbook.Worksheets.Count).Name & "'!E:E)")
    MsgBox Z

End Sub