Difference d'heure.

Salut SylSyl,

Heureux de t'endre à nouveau.

Monique t'a déjà expliqué 1.000 fois qu'Excel compte en jours et je suppose que tu sais qu'une heure est 1/24 d'une journée.

Donc : 14:00-2/24 te donnera 12:00 (à mettre en format hh:mm)

Bon week-end
Ândré

Salut Andre,

ton explication est d'une simplicité remarquable et je fais toutes mes excuses à Monique (tu lui diras pas, hein ?) mais ca marche pas.

Je fais ca (en test), c'est lancé à chaque fois que je modifie les heures ou minutes d'une des 2 heures (dans le prog):

Private Sub CalcDureeCont()
On Error GoTo fin
HeureFin = Format("15:00", "hh:mm")
HeureDebut = Format("14:00", "hh:mm")

DureeCont = Format(HeureFin - Format(HeureDebut, "h") / 24 - Format(HeureDebut, "n") / 24 / 60, "hh:mm")

Label13.Caption = DureeCont
fin:
End Sub

Où est le pb ?

Merci.

Finalement j'ai mis ca et ca marche:

Private Sub CalcDureeCont()
On Error GoTo fin

If Minute(HeureFin) > Minute(HeureDebut) Then
DureeCont = Hour(HeureFin) - Hour(HeureDebut) & ":" & Minute(HeureFin) - Minute(HeureDebut)
Else
DureeCont = Hour(HeureFin) - Hour(HeureDebut) - 1 & ":" & Minute(HeureFin) - Minute(HeureDebut) + 60
End If
Label13.Caption = Format(DureeCont, "hh:mm")
Exit Sub
fin:
Label13.Caption = ""
End Sub

A++, Sylsyl.