Property Get TextHeures(H As Double) As String
TextHeures = Format(H / 24, "hh:mm")
End Property
Property Let TextHeures(H As Double, Txt As String)
H = TimeValue(Txt) * 24
End Property
Property Get TextMinutes(M As Double) As String
TextMinutes = Format(M / 1440, "hh:mm")
End Property
Property Let TextMinutes(M As Double, Txt As String)
M = TimeValue(Txt) * 1440
End Property