Problème avec le calcul des heures

Bonjour,

Je tente de cumuler des quantités d'heures selon une activité et un projet et d'avoir le résultat en format heure.

Je veux également faire la différence entre des heures estimées et des heures réelles donc possibilité d'heures négatives.

Je fournis un fichier qui présente mon problème.

Merci.

bonjour

je te propose cette macro qui récupère chaque donnée de ta colonne O et les transforme en format heure en colonne P

J'espère que ça t'aidera

Sub TraduireDecimeleEnHeure()
Dim heuredécimale As String, Resultat, e
Dim ligneA As Integer

On Error Resume Next
For ligneA = 5 To 17

heuredécimale = Cells(ligneA, 15)

    If Left((heuredécimale), 1) = "-" Then
        heuredécimale = Right(heuredécimale, Len(heuredécimale) - 1)
        e = CStr(Round((heuredécimale - Int(heuredécimale)) / 100 * 60, 2)) & "0"
        Resultat = CStr(Int(heuredécimale)) & ":" & Mid(e, 3, 2)
        Resultat = "-" & Resultat

    Else
        e = CStr(Round((heuredécimale - Int(heuredécimale)) / 100 * 60, 2)) & "0"
        Resultat = CStr(Int(heuredécimale)) & ":" & Mid(e, 3, 2)

    End If
 Cells(ligneA, 16) = Resultat

 Next ligneA

End Sub

Bonjour le forum, oiseaubleu, ZeChris,

Une proposition par formule à tester:

Cordialement.

Merci, pour vos réponses cela répond parfaitement à mon besoin.