Discussion :

[Neptune64]

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

[helas]

rien ne se passe car il y a une erreur
le code devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If (plage.Cells(P).Value < Date) And (plage.Cells(P).Value > Date - 30) Then

[Neptune64]

Hello helas

Merci de ton aide, je tournais en rond !! en effet ça marche beaucoup mieux comme ça