[vba-E] Problème de date!

Bonjour tt l'monde, j'ai un souci et j'ai besoin d'un avis!!
j'vais essayer de m'expliquer, dans un userform je saisi une période (date début, date fin). je souhaite que le programme parcour la colonne date d'incrisption et si il trouve une date en dehors de cette période (soit trop ancienne, soit trop récente) supprime la ligne entière.

j'en suis arrivé à ce résultat :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub ok_Click() Dim val As String Dim pl As Integer Dim pc As Byte pl = 2 pc = 5 dn1 = date1 'textbox1 dn2 = date2 'textbox2 Sheets("Resultat").Activate dn = Cells(pl, pc) For pl = 2 To nb_ligne() val = Mid(dn, 1, 10) vn = Mid(val, 7, 4) & Mid(val, 4, 2) & Mid(val, 1, 2) vn1 = Mid(dn1, 7, 4) & Mid(dn1, 4, 2) & Mid(dn1, 1, 2) vn2 = Mid(dn2, 7, 4) & Mid(dn2, 4, 2) & Mid(dn2, 1, 2) If vn < vn1 Or vn > vn2 Then Rows(pl).Delete End If Next pl End Sub

---

Le probleme c que je voudrai qu'il compare l'année, puis le mois puis le jour
et que la il me compare la date entière comme un nombre

Je n'ai pas tout compris mais si ça peut t'aider
Sub FormatDesDates()

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim LaDate As Date, LeJour, LeMois, Lannée LaDate = Now() LeJour = Format(LaDate, "dd") LeMois = Format(LaDate, "mm") Lannée = Format(LaDate, "yyyy") Cells(1, 1).Value = Now() Cells(2, 1).Value = LeJour Cells(3, 1).Value = LeMois Cells(4, 1).Value = Lannée Cells(5, 1).Value = Format(CDate(Cells(1, 1).Value), "dd") Cells(6, 1).Value = Format(CDate(Cells(1, 1).Value), "mm") Cells(7, 1).Value = Format(CDate(Cells(1, 1).Value), "yyyy") MsgBox DateSerial(Val(Lannée), Val(LeMois), Val(LeJour)) MsgBox CDbl(DateSerial(Val(Lannée), Val(LeMois), Val(LeJour))) End Sub

---

en rouge, donne le N° de série de la date
A+