Additionner un chiffre de plusieur onglet suivant un terme

Bonjour les pro d'Excel,

J'ai plusieurs onglet qui comporte un tableau qui est variable en hauteur.

En dessous, j'ai un récap qui comprend le nombre de personne entrée par catégorie (Enfant, Adulte.....) le total par encaissement

Je souhaite faire un récap global sur une feuille qui me regroupe le total des encaissements, le total du nombre d'entrée par catégorie.

Mon problème est que sur chaque onglet, les personnes qui utiliseront ce tableau pourrons ajouter des lignes suivant le nombre de personne présente a la visite.

Si je fais un addition de chaque terme (comme dans mon exemple) cela peux fonctionner mais en ajoutant ou en suppriment des lignes du tableaux cela peux ne plus fonctionner. au total il y aura 10 onglets + un récap

l'idée et de faire l’addition du chiffre suivant le terme (Esp, CB... et Adulte, Enfant ....) sans ce soucier ou il ce trouve. Mais là il y a plusieurs fois le même terme donc problème.

C'est pour cela que je vous demande de l'aide

D'avance merci a vous

Franck

Bonjour

1) Edition de la liste des onglets du classeur

Code dans Module1 et bouton associé

'Liste des onglets en colonne P
Sub ListeOnglets()
    Range("P1").Select
'sans la dernière feuille
    For i = 1 To Worksheets.Count - 1
         [P1].Offset(i - 1, 0).Value = Worksheets(i).Name
    Next i
'Sélection de la liste
    Range("P1", Range("P1").End(xlDown)).Select
'La liste est nommée Liste_Feuilles
    ActiveWorkbook.Names.Add Name:="Liste_Feuilles", RefersToR1C1:=Selection
    Range("P1").Select
End Sub

La macro nomme la liste des feuilles "Liste_Feuilles"

Ce nom est ensuite utilisé dans les formules

Formule en B5 à incrémenter dans le tableau jusqu'en B14

=SOMMEPROD(SOMME.SI(INDIRECT("'"&Liste_Feuilles&"'!$S$17:$S$100");$A5;INDIRECT("'"&Liste_Feuilles&"'!$R$17:$R$100")))

Formule en B20 à incrémenter jusqu'en B28

=SOMMEPROD(SOMME.SI(INDIRECT("'"&Liste_Feuilles&"'!$F$17:$F$100");$A20;INDIRECT("'"&Liste_Feuilles&"'!$G$17:$G$100")))

Bien sur, tu peux remplacer le 100 de ces formules par 500 ou 1000 si besoin

Note: ma version d'Excel n'accepte pas les formules des xlsx, tu referas un enregistrer sous (avec macro) sur ton PC

Cordialement

Bonjour Amadéus,

MERCI pour ton aide et surtout ta résolution de mon problème

Belle journée a toi et a tous les pro d'Excel

Franck