Discussion :

[matt^^]

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

[ouskel'n'or]

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

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
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+