Format heure et calcul

Private Sub Heure_Debut_Change()
If Heure_Debut.ListIndex = -1 Then Exit Sub
If Heure_Fin.ListIndex = -1 Then Exit Sub
Call calculheure
End Sub

Private Sub Heure_Fin_Change()
If Heure_Debut.ListIndex = -1 Then Exit Sub
If Heure_Fin.ListIndex = -1 Then Exit Sub
Call calculheure
End Sub


Private Sub UserForm_Initialize()
Dim listh As Range
Dim i As Byte
NomTech.List = Range("ListeNoms").Value
Organisation.List = Range("ListeOrganisation").Value
Set listh = Range("ListeHeures")
For Each cell In listh
    Heure_Debut.AddItem Format(cell.Value, "hh:nn")
    Heure_Fin.AddItem Format(cell.Value, "hh:nn")
Next cell

Jour.List = Range("ListeJours").Value
For i = 1 To 12
Mois.AddItem MonthName(i)
Next i
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
Private Sub calculheure()
Dim dated As Date
Dim datef As Date
Dim minuit As Date
Dim tablo() As String
tablo = Split(Heure_Debut, ":")
dated = TimeSerial(tablo(0), tablo(1), 0)
tablo = Split(Heure_Fin, ":")
datef = TimeSerial(tablo(0), tablo(1), 0)
minuit = TimeSerial(24, 0, 0)
If datef > dated Then Me.Total_Journee = Format(datef - dated, "hh:nn")
If datef < dated Then Me.Total_Journee = Format((minuit - dated) + datef, "hh:nn")




End Sub

Dim pause As Date
pause = TimeSerial(0, 30, 0)
If datef > dated Then Me.Total_Journee = Format(datef - dated - pause, "hh:nn")
If datef < dated Then Me.Total_Journee = Format((minuit - dated) + datef - pause, "hh:nn")

Private Sub CommandButton1_Click()
....................................................
        .HorizontalAlignment = xlCenter
    End With
Dim lig As Long
lig = rechercheligne("Heures", 1, Array(0, 1, 2), Array(NomTech.Value, Jour.Value, Mois.Value))
If lig <> 0 Then
Call MsgBox("Vous avez déjà renseigné la base" _
            & vbCrLf & "Nom : " & NomTech.Value _
            & vbCrLf & "Jour : " & Jour.Value _
            & vbCrLf & "Mois : " & Mois.Value _
            , vbInformation, Application.Name)

exit sub

End If

    With Sheets("Heures")
 ...........................................

End Sub


Private Function rechercheligne(£nomfeuille As String, £colonne As Byte, £offset As Variant, £valeur As Variant)
Dim £cellule As Range
If UBound(£valeur) <> UBound(£offset) Then
Call MsgBox("Erreur ", vbCritical, Application.Name)
End If
rechercheligne = 0
For Each £cellule In Sheets(£nomfeuille).UsedRange.Columns(£colonne).Cells
    For £i = LBound(£valeur) To UBound(£valeur)
£trouve = False
    For £i = LBound(£valeur) To UBound(£valeur)
        If CStr(£cellule.Offset(0, £offset(£i))) <> £valeur(£i) Then
            £trouve = True
            Exit For
        End If
    Next £i
    If £trouve = False Then

        rechercheligne = £cellule.Row
        Exit For
    End If
Next £cellule
End Function