[RESOLU]chevauchement de plage horaire et extraction

Private Sub UserForm_Initialize()
Dim Total As Date
Dim E1 As Date, S1 As Date, E2 As Date, S2 As Date, AEntree As Date, Asortie As Date
E1 = CDate(Range("a2").Text)
S1 = CDate(Range("b2").Text)
E2 = CDate(Range("c2").Text)
S2 = CDate(Range("d2").Text)
AEntree = CDate(Range("e2").Text)
Asortie = CDate(Range("f2").Text)
If AEntrée < E1 Then
    If Asortie < E1 Then
    Total = Asortie - AEntree
    If Asortie > E1 Then
    Total = E1 - AEntree
    End If
If AEntree < S1 Then
    If Asortie > S1 Then
    Total = Total + (S1 - AEntree)
    End If
    End If

End If
End If

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
Dim Total As Date, I%
For I = 5 To 8
Total = Total + test1(Cells(2, I).Text)
Next
Me.Label1.Caption = Total
End Sub

Private Function test1(Cel As Date) As Date
Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = CDate(Range("a2").Text)
T2 = CDate(Range("b2").Text)
T3 = CDate(Range("c2").Text)
T4 = CDate(Range("d2").Text)
Select Case Cel
    Case Is < T1
        test1 = T1 - Cel
    Case Is > T2
        If Cel < T3 Then test1 = Cel - T2
        If Cel > T4 Then test1 = Cel - T4
End Select
End Function

Private Function test1(Cel As Date) As Date
Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = CDate(Range("a2").Text) + TimeValue("00:01")
T2 = CDate(Range("b2").Text)
T3 = CDate(Range("c2").Text) + TimeValue("00:01")
T4 = CDate(Range("d2").Text)
Select Case Cel
    Case Is < T1
        test1 = T1 - Cel
    Case Is > T2
        If Cel < T3 Then test1 = Cel - T2
        If Cel > T4 Then test1 = Cel - T4
End Select
End Function

Private Function test1(Cel As Date) As Date
 Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
 T1 = CDate(Range("a2").Text)
 T2 = CDate(Range("b2").Text)
 T3 = CDate(Range("c2").Text)
 T4 = CDate(Range("d2").Text)
 Select Case Cel
     Case Is < T1
         test1 = T1 - Cel
     Case Is > T2
         If Cel < T3 Then test1 = T3 - Cel
         If Cel > T4 Then test1 = Cel - T4
 End Select
 End Function

Private Function test1(Cel As Date) As Date
 Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
 T1 = CDate(Range("a2").Text)
 T2 = CDate(Range("b2").Text)
 T3 = CDate(Range("c2").Text)
 T4 = CDate(Range("d2").Text)
 Select Case Cel
     Case Is < T1
         test1 = T1 - Cel
     Case Is >= T2
         If Cel <= T3 Then test1 = T3 - Cel
         If Cel > T4 Then test1 = Cel - T4
 End Select
 End Function