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 : Sélectionner tout - Visualiser dans une fenêtre à part
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