Cumul d'onglets identiques

[Aissane]

Bonjour à tous.

Je me tourne vers vous car je bloque sur un fichier Excel et ne parviens pas à trouver d'automatisation à ma requête.

Mon fichier se compose d'onglets identiques, retraçant des chiffres sur chaque semaine.

Je souhaite que le 1er onglet cumule les chiffres de chaque semaine.

J'ai nommé des plages mais je ne parviens pas à faire la somme de toutes les semaines sur ma 1ère feuille 😕

Je vous joins le fichier, ça peut servir...

 

[hoerwind]

Re : Cumul d'onglets identiques

Bonjour et bienvenue sur le forum,

A titre d'exemple, en Cumul!C6 : =SOMME('S1:S2'!C6)

 

[tototiti2008]

Re : Cumul d'onglets identiques

Bonjour Aissane,

Bienvenue sur XLD,

peut-être, en B6 feuille Cumul

=SOMME('S1:S2'!B6)

Edit : Bing, Bonjour hoerwind 😉

 

[Guest]

Re : Cumul d'onglets identiques

bonjour,

Sélectionner B6 de la feuille 'Cumul'
Onglet Données, Groupe 'Outils de données', bouton 'Consolider'
Dans la fenêtre qui s'ouvre:
1 - Vérifier que somme est le choix définit dans la liste des fonctions
2 - Dans la zone 'Référence' tapez 'Semaine1' puis valider en cliquant sur le bouton 'Ajouter'
3 - Dans la zone '"Référence' taper 'Semaine2' puis valider en cliquant sur le bouton 'Ajouter'
4 - Laissez décocher les cases 'Ligne du haut', 'colonne de gauche' et 'Lier au données sources'

5 - Valider.

C'est fait.

A+

 

[Aissane]

Re : Cumul d'onglets identiques

J'ai résolu le problème en faisant une formule matricielle sur la plage de cellules :

{=SOMME(semaine1+semaine2+semaine3+semaine4+semaine5+semaine6+semaine7)}

Il y a peut être une solution plus simple et ergonomique ?

Dans tous les cas, ça fonctionne !!

 

[Hippolite]

Re : Cumul d'onglets identiques

Bonjour,
J'arrive un peu tard
Si tu veux ajouter ultérieurement d'autres semaines,
ajoute une feuille DEBUT et un feuille FIN pour encadrer tes semaines
puis en Cumul!C6 : =SOMME(DEBUT:FIN!C6) et tu tires

 

[Aissane]

Re : Cumul d'onglets identiques

Merci beaucoup pour votre aide.

J'ai testé ta solution Hasco, mais ça me laisse certaines cellules vides...

Du coup je laisse ma formule matricielle pour le moment.

Pareil pour votre solution hoerwind, tototiti2008 et Hippoliten ça m'oblige à retaper ça dans toutes les cellules, ce qui n'est pas très rapide en cas de modification.

Encore merci !

 

[hoerwind]

Re : Cumul d'onglets identiques

Re,

Copier une formule et la copier dans d'autres cellules ... c'est possible !

 

[Guest]

Re : Cumul d'onglets identiques

Re,

Oui c'est une bonne solution, si avec le temps elle provoque des ralentissements (formule matricielle) tu peux faire appel à la macro suivante qui fait la consolidation, comme citée dans mon post précédent.

Sub Consolidation()
    Dim TableauConsolidation() As String
    Dim sh As Worksheet
    Dim i As Integer
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name Like "S#" Then
            ReDim Preserve TableauConsolidation(0 To i)
            TableauConsolidation(i) = "'" & sh.Name & "'!R6C2:R28C54"
            i = i + 1
        End If
    Next sh
    Sheets("Cumul").Range("B6:BB28").Consolidate Sources:=TableauConsolidation, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
End Sub

Regarde dans l'aide excel "F1" sur consolidation et les références 3D.

A+
[Edit] salut Hoerwind🙂
Salut hippolite

 

[Aissane]

Re : Cumul d'onglets identiques

Re,

Copier une formule et la copier dans d'autres cellules ... c'est possible !

Oui c'est possible, mais vu le nombre de cellules contenues dans mon tableau, c'est très long à la mise en place !

Mon but était d'automatiser au maximum.

Merci quand même 🙂

Re,

Oui c'est une bonne solution, si avec le temps elle provoque des ralentissements (formule matricielle) tu peux faire appel à la macro suivante qui fait la consolidation, comme citée dans mon post précédent.

Sub Consolidation()
    Dim TableauConsolidation() As String
    Dim sh As Worksheet
    Dim i As Integer
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name Like "S#" Then
            ReDim Preserve TableauConsolidation(0 To i)
            TableauConsolidation(i) = "'" & sh.Name & "'!R6C2:R28C54"
            i = i + 1
        End If
    Next sh
    Sheets("Cumul").Range("B6:BB28").Consolidate Sources:=TableauConsolidation, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
End Sub

Regarde dans l'aide excel "F1" sur consolidation et les références 3D.

A+

Ok merci beaucoup 😀

 

[tototiti2008]

Re : Cumul d'onglets identiques

Bonjour à tous,

une autre solution

Dans la feuille cumul, sélectionne la plage Cumul

Dans la barre de formule :

=semaine1+semaine2

valide avec Ctrl + Entrée

au moins ce n'est pas matriciel... donc moins lourd

Edit : Bonjour Hasco, c'est trop d'honneur, merci 😱 😀

 

[Guest]

Re : Cumul d'onglets identiques

Re,

Applaudissements🙂🙂🙂 enthousiastes pour tototiti.

A++

 

[Aissane]

Re : Cumul d'onglets identiques

Bonjour à tous,

une autre solution

Dans la feuille cumul, sélectionne la plage Cumul

Dans la barre de formule :

valide avec Ctrl + Entrée

au moins ce n'est pas matriciel... donc moins lourd

Merci beaucoup 🙂