Récap des données

Bonjour,

J'ai un fichier de temps qui détaille le temps consacré par un salarié pour toutes les taches qu'il effectue.

sachant qu'il peut y avoir plusieurs lignes de suite la même tache j'aimerais avoir un tableau récapitulatif qui affiche :

- le temps passé par un salarié (x) pour une tache (y)

ci joint le classeur. Vous comprendrez plus facilement.

Merci d'avance

8classeur1.xlsx (16.54 Ko)

Bonjour Mus54,

un essai voir si ça peut te convenir.

8classeur1.xlsx (16.91 Ko)

Salut Bigdaddy154,

Je te remercie bcp, ça me convient

Bonjour,

voici une proposition,

je ne sais pas ce que tu attends dans la colonne Total

Sub aargh()
    Set wsr = Sheets("Récap")
    wsr.Rows("9:1000").ClearContents
    k = 8
    For Each ws In Worksheets
        If ws.Name <> wsr.Name Then
            ksal = k + 1
            dl = ws.Cells(Rows.Count, 1).End(xlUp).Row
            For i = 10 To dl
                Set pl = wsr.Range("B" & ksal & ":B" & k)
                Set re = pl.Find(ws.Cells(i, 5), lookat:=xlWhole)
                If re Is Nothing Then
                    k = k + 1
                    wsr.Cells(k, 1) = ws.Name
                    wsr.Cells(k, 2) = ws.Cells(i, 5)
                    wsr.Cells(k, 3) = Application.WorksheetFunction.SumIf(ws.Range("E10:E" & dl), ws.Range("E" & i), ws.Range("D10:D" & dl))
                End If
            Next i
        End If
    Next ws
End Sub

Bonjour, h2so4

Effectivement la colonne Total est inutile..

Merci pour ta proposition.

Rechercher des sujets similaires à "recap donnees"