histoire de 15 min

Sub Macro1()
Dim tot As Integer 'déclare la variable tot
Dim heur As String 'déclare la variable heur
Dim min As String 'déclare la variable min

tot = Range('A1').Value 'définit la variable tot

If tot \\\\\\\\ 60 < 10 Then 'condition : si l'entier de la division de tot par 60 est inférieur à 10
heur = Format(tot \\\\\\\\ 60, '00') 'définit la variable heur
Else 'sinon
heur = tot \\\\\\\\ 60 'définit la variable heur
End If 'fin de la condition

If tot Mod 60 < 10 Then 'condition : si le reste de la division de tot par 60 est inférieur à 10
min = Format(tot Mod 60, '00') 'définit la variable min
Else 'sinon
min = tot Mod 60 'définit la variable min
End If 'fin de la condition

MsgBox heur & ':' & min 'mesage
End Sub

Cliquez pour agrandir...

Sub Bouton1_QuandClic()
With Range('a1')
.Value = .Value / 1440
.NumberFormat = 'hh:mm;@'
End With
End Sub

Cliquez pour agrandir...