Bonjour Noel, Jocelyn
Voici ce que j'ai trouvé le jpour où je me suis posé la même question :
Exemple: ?ConvMinutesEnHeures(ConvHeuresMinEnMinutes(8.4)) = 8:24
Public Function ConvHeuresMinEnMinutes(varTemps As Single) As Long
''Objectif: convertir une durée entrée en dixièmes d'heure en un nombre de minutes
'Exemple: 2.4 h = 144 minutes
Dim HeuresMin As Long, Minutes As Single, NbrePosHeure As Byte, varTemps1 As String
If IsNull(varTemps) Then Exit Function
varTemps1 = Format(varTemps, '0000.00')
NbrePosHeure = InStr(varTemps1, '.') - 1
HeuresMin = 60 * Left(varTemps1, NbrePosHeure)
Minutes = (varTemps - Int(varTemps)) * 60
ConvHeuresMinEnMinutes = HeuresMin + Minutes
End Function