Dim tmp1 As Variant
Dim debut As Date
Dim aujourdhui As Date
debut = Format(Date - 1, "dd-mm-yyyy")
aujourdhui = Format(Date, "dd-mm-yyyy")
tmp1 = InputBox("Confirmez la date du rapport à éditer", "Rapport journalier d'activité", debut)
If tmp1 = "" Then
MsgBox "Aucune date saisie - Opération annulée", vbInformation, "Rapport journalier d'activité"
Exit Sub
End If
If Not IsDate(tmp1) Then
MsgBox "Format Date Incorrecte - Opération annulée", vbInformation, "Rapport journalier d'activité"
Exit Sub
End If
If tmp1 = aujourdhui Or tmp1 > aujourdhui Then
MsgBox "Vous ne pouvez pas générer de rapport d'activité pour la date du Jour" & vbCrLf & _
"ou une date ultérieure." & vbCrLf & vbCrLf & _
"Opération annulée", vbInformation, "Rapport journalier d'activité"
Exit Sub
End If
Dim arTemp() As String 'Temp Array
Dim bFound As Boolean 'Flag
Dim ChercheX As String
Dim ma_plage As String
Dim Nom_Feuil As String
ChercheX = debut
ma_plage = "C5:C50"
Nom_Feuil = "Trains supprimés"
bFound = FindAll(ChercheX, Sheets(Nom_Feuil), ma_plage, arTemp())
If bFound = True Then
Worksheets("Trains supprimés").Activate
For x = 1 To UBound(arTemp)
Rows(arTemp(x)).Delete
Next x
End If