Réponse acceptée !
Pour la conversion, j'ai trouvé ca sur le site :
Private Function Conversion(Durée As Long) As String
Dim Temps As Long, Heures As Integer, Minutes As Integer, Secondes As Integer
Temps = Durée ' Temps en secondes
Secondes = Temps Mod 60
Temps = (Temps - Secondes) \ 60 ' Temps en minutes
Minutes = Temps Mod 60
Heures = (Temps - Minutes) \ 60
Conversion = Durée & " s = " & Heures & " h " & Minutes & " min " & Secondes & " s"
End Function
|