Discussion :

[carrierre]

re:

La le format Date ne suffit pas, il faut utiliser le format Double et ecrire une fonction personalisée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub reduc()
    Range("A2") = fdate24("25:24") + fdate24("39:27")
End Sub
 
Function fdate24(heure As String) As Double
    fdate24 = Val(Left(heure, InStr(heure, ":") - 1)) / 24 + (Val(Mid(heure, InStr(heure, ":") + 1)) / 60 / 24)
End Function

Bon dimanche

Bonsoir, j'ai essayé votre fonction avec heures =("7:15"), Test déclaré comme double et le résultat est 0, 30283333... Pourriez m'éclairer? Je cherche à additionner des heures sur un mois et je n'y arrive simplement pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Test = fdate24(Heures)
   MsgBox ("heures = " & Test)