SOMME.SI.ENS sur plusieurs feuilles

Bonjour,

Mon entreprise demande à ses salariés un récapitulatif des différentes activités réalisées au cours de l'année.

J'aimerais ainsi additionner les heures de travail de chaque mois par activité.

Grace à la fonction SOMME.SI.ENS, j'ai réussi à additionner les heures par activité pour chaque semaine (1 feuille = 1 semaine) mais dès que je rajoute la 2ème semaine, la cellule affiche #####.

Que faire ? (mon fichier en pièce jointe sera certainement plus clair que mon explication)

Merci par avance et bonne journée à vous :)

Bonjour,

Un essai à tester.

Bon courage

xtel

Merci de votre réponse.

Toutefois cette fonctionnalité ne permet pas de faire la somme du mois de janvier uniquement. Lorsque je rajoute la condition colonne = "janvier" avec la fonction SOMME.SI.ENS, je n'obtiens toujours pas le résultat escompté.

Bonjour Prisme & Teten

@Prism :

• ton fichier ne se prête pas du tout à obtenir autre chose qu'une formule hyper complexe !
• as-tu la possibilité de changer la forme du document ? car un simple TCD sans formule peut être la solution ! en se basant sur une structure plus linéaire avc un seul onglet pour toutes les semaines

Bonjour Steelson,

Merci de ta réponse.

Non malheureusement, ce fichier est celui que nous devons remplir...

Cela est donc impossible à faire avec ce format ?

Merci par avance,

Tout est possible ! mais franchement, celui qui met en place un tel fichier mérite une formation excel de base.

Auriez-vous un modèle type de document en tête ? Je peux essayer de le proposer

Merci par avance,

Il faudra veiller à ce que les mois soient correctement écrits, avec des accents !

edit : désolé, j'ai poursuivi avec ton document réputé non modifiable !

Merci beaucoup pour le document !

Je n'ai toutefois pas compris comment tu avais obtenu le TCD... Quand je veux en créer un, il me demande une plage de données et n'accepte pas plusieurs feuilles de calcul...

Il y a un onglet masqué qui reprend les données des feuilles commençant pas S

Option Base 1

Sub compiler()
Dim bdd As ListObject
Set bdd = Sheets("BdD").ListObjects(1)
If Not bdd.DataBodyRange Is Nothing Then bdd.DataBodyRange.Delete
lignes = Array(3, 6, 9, 12, 15)

With bdd
    For Each f In Worksheets
        If f.Name Like "S*" Then
            For n = 1 To 5
                .ListRows.Add
                i = .ListRows.Count
                With .DataBodyRange
                    .Cells(i, 1) = f.Cells(lignes(n), 1)
                    .Cells(i, 2) = f.Cells(lignes(n), 2)
                    .Cells(i, 6) = f.Cells(lignes(n) - 1, 4)
                    .Cells(i, 7) = f.Cells(lignes(n) - 1, 5)
                End With
                .ListRows.Add
                i = .ListRows.Count
                With .DataBodyRange
                    .Cells(i, 1) = f.Cells(lignes(n), 1)
                    .Cells(i, 2) = f.Cells(lignes(n), 2)
                    .Cells(i, 6) = f.Cells(lignes(n), 4)
                    .Cells(i, 7) = f.Cells(lignes(n), 5)
                End With
            Next
        End If
    Next
End With

Sheets("Recap").PivotTables(1).PivotCache.Refresh

End Sub

Quand tu actives la feuille Recap, cet onglet se met à jour en automatique

Private Sub Worksheet_Activate()
compiler
End Sub

Super, ça fonctionne !

Merci beaucoup à tous ! :)