Calcul heure sup

Bonjour,

Je souhaiterais que les heures supplémentaires que je rajoute en rouge sur le planning, s'additionnent dans les cellules "AO76" à "AO82" en fonction du nom de la personne, Curuli

s57 si tu peux voir cela ce serais top, vu que tu as fait un travail formidable sur la retranscription des horaires.

Daniel

Bonjour Curulis57,

Peux tu traiter cette demande pour moi stp.

Daniel

Bonjour,

En attendant la proposition de Curulis57, essayez celle-ci (tout en conservant une partie de qu'il avait fait)

On utilise une colonne supplémentaire AW que vous pouvez masquer et on y applique la fonction personnalisée suivante en bout de ligne: =HeureSup()

puis pour la somme en AO76: =SOMME.SI($A$5:$A$70;$B76;$AW$5:$AW$70)

la fonction personnalisée:

Public Function HeureSup() As Double
    Dim rCel1 As Range, iRow%, iIdx%
    Dim TotSup As Double
    Application.Volatile
    iRow = Application.Caller.Row
    With Worksheets(Application.Caller.Parent.Name)
        For x = 2 To 43
            If .Cells(iRow, x) <> "" And IsNumeric(.Cells(iRow, x)) And Cells(iRow, x).Interior.Color = RGB(255, 0, 0) Then
                TotSup = TotSup + .Cells(iRow, x) * 1
            End If
        Next
    End With
    HeureSup = TotSup
End Function

le fichier

Cdlt

Bonjour Arturo83,

je viens d'appliquer ta formule et elle fonctionne niquel,

Un grand merci pour ton intervention.

Daniel