Bonjour le forum :-))

J'aimerais sélectionner toutes les dates ente aujourd'hui et -30 jours. Avec la macro ci-dessous cela fonctionne avec DATE mais j'ai seulement la date du jours, je n'arrive pas à trouver comment faire !! comme je l'ai écrit ci-dessous rien ne se passe !!!

Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test_not_Installed()
Dim P As Long
Dim plage, plage2 As Range
 
 
Set plage = Range("E4:E" & Range("A4").End(xlDown).Row)
Set plage2 = Range("K4:K" & Range("A4").End(xlDown).Row)
For P = plage.Cells.Count To 1 Step -1
  If plage.Cells(P).Value < Date > Date - 30 Then
  plage2.Cells(P).Value = "Not installed"
 
  End If
Next P
End Sub