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

 

[JHA]

Bonjour à tous,

Un exemple sur le fichier joint.

=SOMME(Debut:Fin!AT54)

Si tu ajoutes des feuilles, tu les mets entre la feuille début et fin
Si les feuilles te gênent, tu peux les masquer.

JHA

 

[sev31130]

merci de ton aide, oui en effet je masque les feuilles, sinon c'est lourd a gérer
c'est super

 

[sev31130]

re bonjour est ce que vous pourriez regarder ce que je note sur la feuille tot.gene
il y a un petit problème
par avancer merci

 

[sev31130]

je pense que ce fichier est a l'origine de M. JOB75 ou M. GENDRON
grace JHA je peux faire l'addition des cellules, mais après tri (TOUT - P-T ou O) les totaux ne sont pas fiables
Pouvez vous regarder svp et me dire pourquoi ?
Sachant que mes connaissances dans le domaine de l'informatique sont nulles, que j'essaie aussi de mon côté
de trouver, mais je ne trouve rien, je ne peux juste que constater et vous contacter
Alors peut être que ce que je demande n'est pas faisable ?
Par avance Merci

 

[sev31130]

bonsoir c'est encore moi .
Veuillez svp lire mes annotations sur le fichier joint et peut -être me donner une réponse,
juste un mot d'explication pour me dire ce que je dois faire

Par avancez merci
je vous joins le fichier merci

 

[sev31130]

bonjour,

je réitère me demande, est ce qu'une âme charitable peut répondre et me dire si il y a lieu
de faire les calculs en VBA (ce que je ne sais pas faire), mais au moins je serais fixé...
il doit bien y avoir une personne qui peut m'expliquer le phénomène et pourquoi je dois ouvrir toutes.
les feuilles pour avoir un résultat juste et fiable.
Voyez le fichier ci dessus vous comprendrez en lisant mes explications
Encore mille merci

 

[chris]

Bonjour

La feuille où s'effectuent les totaux doit être en dehors de la série Début Fin et la série des feuilles additionnées doit être identique au moins sur la partie additionnée : donc Début doit être avant 2005 et Fin doit être juste après 2017.

Tes formules dans tot,gene ne sont pas homogènes

Pas compris ton histoire de tri : tu tries qui exactement ?
Si je comprends bien tu tries la feuille Stats générales ?
Si tu déplaces la feuille Début comme indiqué, la feuille Stats générales n'interférera plus...

 

[sev31130]

le tri va chercher dans stats generales et en fonction de ma demande si j'ai cliqué P par exemple, il vas me donner toutes les stats de P sur toutes les feuilles 2005:2017 et donc sur tot.general le total de P
En effet la partie additionné de chaque feuille c'est à dire le pavé AD54:AX73 se veut être la copie conforme dans chaque feuille, afin que chaque cellule soit correspondante pour avoir des calcul juste.
Vois je t'envoi un, fichier avec quelques mots pour que tu comprennes mieux ...
Paar avance merci
PS joint le fichier tu verras que chaque feuille 2005:2017 est à l'identique mais que je n'arrive pas a avoir les totaux par simple lecture sans "activer" chaque feuille après chaque choix
Mille merci

 

[sev31130]

vois tu j'ai essayer de réduire les feuilles a 2015-2016 et le problème est le même
donc pas dû au nombre de feuilles mais au calcul, comment résoudre svp

 

[job75]

Bonjour sev31130, JHA, chris,

Fichier joint avec cette macro dans le code de la feuille "tot,gene" :

Private Sub Worksheet_Activate()
Dim t(1 To 20, 1 To 5), w As Worksheet, total As Range, i, j
For Each w In Worksheets
  If w.Name Like ("####") Then
    Set total = w.Cells.Find("TOTAL " & Right(w.Name, 2), , xlValues, xlWhole)
    If Not total Is Nothing Then
      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
[D7:H26] = t
End Sub

Les tableaux à sommer peuvent être n'importe où dans les feuilles des années mais doivent avoir pour en-têtes les textes TOTAL05, TOTAL06, TOTAL07 etc.

A+

 

[sev31130]

Bonjour,

En premier lieu merci M. JOB75, de vous intéresser à mon problème.
Vous avez pris le premier fichier que j'avais envoyé, je me suis rendu compte
qu'il y avait des feuilles ou les formules n'étaient pas bonnes, et je me suis rendu compte
qu'il y avait aussi des lignes dans stats generales qui n'allaient pas , bref j'ai remis le fichier
en ordre comme il se doit, afin de ne pas vous ennuyer pour des âneries de ma part.
Ce que j'ai fais j'ai copié la macro que vous avez eu la gentillesse de me faire dans mon fichier propre
- je suppose que "TOTAL05, TOTAL06, TOTAL07 etc." doivent tous avoir le format qu'ils ont actuellement
; c'est a dire avec un espace entre TOTAL et l'année
- Quand vous notez "activer la feuille tot.gene, c'est à dire à l'ouverture quand excel le prpose je suppose sinon je ne sais pas l'activer autrement.
Enfin pour conclure je vous joins mon fichier propre avec la macro et les totaux ne correspondent pas a ce qu'ils devraient correspondre, vous verrez sur la feuille
Par avance merci
YC

 

[job75]

Re,

Oui, comme dans ma macro précédente, il faut un espace dans l'en-tête des tableaux à sommer.

Si l'on veut mettre en évidence les erreurs :

Private Sub Worksheet_Activate()
Dim t(1 To 20, 1 To 5), w As Worksheet, nomtab$, total As Range, i, j
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
      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
[D7:H26] = t
End Sub

C'est utile pour le fichier du post #1 ou ce fichier (2).

A+

 

[sev31130]

re bonjour Mr JOB75
s'il vous plait ce fichier sur lequel vous avez mis la macro , n'est pas bon.
il faut prendre le fichier qui est dans le post # 11
Ce fichier est propre et sans erreur, et la je pourrais enfin avoir un vrai fichier bien clair
Merci car je ne sais pas faire moi dans le domaine des macros

Il y a aussi sur la feuille les tot.gene les bons totaux et je crois que lorsque je compare les totaux automatiques et ceux qui sont les bons que j'ai calculé à la main, il n'y a aucune similitude
C'est même très différent ?

Mille merci

 

[sev31130]

il faut activer les feuilles comme auparavant pour que le total s’incrémente
a chaque activation de la feuille de l année...je ne sais pas si je m'explique bien, mais je constate
que le total ne prends en compte les differentes cellules de chaque feuille que tout autant que je clique sur l'année pour l'activer
Je ne sais pas comment arriver a lire le resultat sur un simple clic sur le choix dans stats filtrées et ensuite dans tot.gene
merci