Copiez et collez le code suivant dans l'éditeur Visual Basic entre les lignes, Sous DeleteRowbyDate () et End Sub:
Dim x As Long
Pour x = 1 à Cells.SpecialCells (xlCellTypeLastCell) .Row
Debug.Print cellules (x, "-B" -.) Valeur
Si CDate (cellules (x, "-B"-)) lt; CDate ("-12/29/2010"-) Ensuite,
Cellules (i, "-B" -) EntireRow.delete.
End If
I Suivant
Sur la ligne où il est dit, " Si CDate (cellules (x, "B")) lt; CDate ("12/29/2010") Ensuite,", Changer la date à tout ce jour qui est un jour supérieur à la date que vous souhaitez supprimer. Par exemple, si vous souhaitez supprimer toutes les lignes qui sont antérieures à Janvier 01 2009, puis vous modifiez la ligne:
Si CDate (cellules (x, "B")) lt; CDate ("01/01/09") Ensuite,