1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Function teste_si_le_chauffeur_est_malade(nom_du_chauffeur As String, date_du_jour As Date)
Dim cell As Range
'cette loop va vérifier si les chauffeurs ne sont pas malades pour la variable nom_du_chauffeur, et renvoit un message si c'est le cas
With Worksheets("BD")
For Each cell In .Range(.Cells(2, .Range("BD_titre_chauffeur").Column), .Cells(.UsedRange.Rows.Count, .Range("BD_titre_chauffeur").Column))
If cell.Value = nom_du_chauffeur Then
'compare les dates :
If date_du_jour >= Worksheets("BD").Cells(cell.Row, Range("BD_titre_du").Column).Value And _
date_du_jour <= Worksheets("BD").Cells(cell.Row, Range("BD_titre_au").Column).Value Then
MsgBox "Le chauffeur " & cell.Value & " est malade.", vbOKOnly, "Attention"
teste_si_le_chauffeur_est_malade = True
Exit Function
End If
End If
Next
End With
End Function |
