Private Sub B7_Change()
alim_B3
End Sub
Private Sub B8_Change()
alim_B3
End Sub
Sub alim_B3()
If B7 = "" Or B8 = "" Then Exit Sub
B3 = ""
deb = CDate(B7) * 24
fin = CDate(B8) * 24
If deb >= 8 And deb < 12 And fin <= 12 And fin > deb Then B3 = "MATIN"
If deb >= 13 And deb < 19 And fin <= 19 And fin > deb Then B3 = "APRES-MIDI"
If deb >= 19 And deb <= 23 Then
If fin >= 0 And fin <= 8 Then B3 = "SOIR"
If fin > 19 And fin <= 23 And fin > deb Then B3 = "SOIR"
End If
If deb >= 0 And deb <= 8 Then
If fin > 0 And fin <= 8 And fin > deb Then B3 = "SOIR"
End If
End Sub