Arrondi d'heure

Sub Bouton5_QuandClic() 'heure en centième
Dim cel As Range
For Each cel In Range("D10:H13")
 [COLOR="Red"] If cel.Text Like "*:*" Then[/COLOR]
    cel = cel * 24
  End If
Next
Range("D10:H14").NumberFormat = "0.00"
End Sub

Sub Bouton6_QuandClic() 'centième en heure
Dim cel As Range
For Each cel In Range("D10:H13")
  If IsNumeric(cel.Text) Then
    cel = cel / 24
  End If
Next
Range("D10:H14").NumberFormat = "hh:mm"
End Sub

Sub Convertir() 'heure en centième
Dim cel As Range
Application.ScreenUpdating = False
With ActiveSheet.DrawingObjects(Application.Caller)
  .Text = "Tableau en " & IIf(InStr(.Text, "centième"), "", "centième d'") & "heures"
  Range("D7") = "En " & IIf(InStr(.Text, "centième"), "", "centième d'") & "heures"
  For Each cel In Range("D10:H13")
    If cel.Text Like "*:*" Then
      cel = cel * 24
    ElseIf IsNumeric(cel.Text) Then
      cel = cel / 24
    End If
  Next
  Range("D10:H14").NumberFormat = IIf(InStr(.Text, "centième"), "hh:mm", "0.00")
End With
End Sub

Sub centiemes()
Set plage = Range("D10:H14")
ActiveSheet.Shapes("Button 5").Select
If Selection.Characters.Text = "Centiemes" Then
  plage.NumberFormat = "hh:mm"
  Selection.Characters.Text = "Heures"
Else
For Each cel In plage
x = Int(cel.Value * 2400) / 100
cel.NumberFormat = CStr(Int(x)) & "\," & CStr(Int((x - Int(x)) * 100))
Next cel
 Selection.Characters.Text = "Centiemes"
End If
Range("D9").Select
End Sub

=D14-SI($D7="En heures";D26;D26*24)

=D14-D26*24^($D7<>"En heures")

Range("D10:H[COLOR="Red"]15[/COLOR]").NumberFormat = IIf(InStr(.Text, "centième"), "hh:mm", "0.00")

ActiveSheet.DrawingObjects("Bouton 5").Text = "Tableau en centième d'heures"