re
bonjour
je te propose une fonction perso qui arrangera ton affaire
dans un module standard
Function CalculeTime(cel1 As Range, cel2 As Range)
dim th
Heure1 = TimeValue(cel1.text)
Heure2 = TimeValue(cel2.text)
th = Heure1 - Heure2
'formatage avec la fonction ""Text"" de application
CalculeTime = Application.text(th, "[hh]:mm:ss") 'les crochets associés a app.text indiquent que les heures se cumulent au dela de 24 ou se soustraient
End Function
et dans ta cellule la formule base
=calcultime(A2;D2)
te reste plus qu'a etendre la formule dans tes cellules (peut etre avec une gestion d'erreur si les cellules ne sont pas des temps)
la gestion d'erreur pour les non date peut se faire directement dans la fonction comme ceci
Function CalculeTime(cel1 As Range, cel2 As Range)
CalculeTime = ""
If Not IsDate(cel1.text) Or Not IsDate(cel2.text) Then Exit Function
heure1 = TimeValue(cel1.text)
heure2 = TimeValue(cel2.text)
th = heure1 - heure2
'formatage avec la fonction ""Text"" de application
CalculeTime = Application.text(th, "[hh]:mm:ss") 'les crochets associés a app.text indiquent que les heures se cumulent au dela de 24 ou se soustraient
End Function