Bonjour je suis actuellement en stage et j'ai quelques petites interrogations sur comment comparer deux dates. J'ai essayé plusieurs codes mais cela fonctionne pas je vous ai mis ci dessous mon dernier code. Sur ma feuille excel il y a toutes les interventions qui ont été effectué depuis 4 ans . à la demande de l'utilisateur il doit en ressortir toutes les interventions pour lesquelles la date qui est dans la colonne 5 est comprise entre l'intervalle que l'utilisateur aura saisie. j'attends patiemment vos reponses parce que je suis dans une impasse ....

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
21
22
23
24
25
26
Dim i As Integer
Dim stock As Date
Dim DateDebut As Date
Dim DateFin As Date
Dim papi As Integer
 
fin = Range("A1").End(xlDown).Row
 
DateDebut = InputBox("Entrer la date ", " Date de debut d'intervalle ", "01/01/2013 ")
 
MsgBox "Bonjour" & Chr(10) & "La date est " & DateDebut
 
DateFin = InputBox("Entrer la date ", " Date de fin d'intervalle ", "01/01/2013 ")
 
MsgBox "Bonjour" & Chr(10) & "La date est " & DateFin
 
For i = 2 To fin
Cells(i, 5).Select
stock = Cells(i, 5).Value
If (stock <= DateDebut) Or (stock >= DateFin) Then
Rows(i).Select
Selection.Delete Shift:=xlUp
papi = Range("A1").End(xlDown).Row
fin = papi
End If
Next i