effacer les lignes où dates trop anciennes

[pascal21]

bonjour le forum
j'ai une formule qui permet d'écrire la date du jour en colonne ligne après ligne
=SI(A4=0;0;SI(AUJOURDHUI()>A4;A4+1;0))
je cherche le moyen d'effacer les dates trop anciennes (2mois) mais par mois entier ainsi que les lignes où ces dates sont écrites
merci
un petit classeur pour l'exemple est fourni

 

[_Thierry]

Re : effacer les lignes où dates trop anciennes

Bonjour Pascal, le Forum

C'est marrant, j'ai eu a travaillé sur la même Function "DatePart" aujourd'hui pour BobJazz dans un autre Fil de Discussion.

Voici un Petit Algo qui devra faire ce que tu souhaites...

Sub Eliminator_Date_Older_2_Monthes()
Dim L As Long
 
    With Sheets("Feuil1")
            For L = .Range("A65536").End(xlUp).Row To 3 Step -1
                If IsDate(.Cells(L, 1)) Then
                     .Cells(L, 1) = .Cells(L, 1)
                         If DatePart("m", CDate(.Cells(L, 1).Value)) < DatePart("m", Date) - 2 Then
                             .Rows(L).Delete
                         End If
                End If
            Next
    End With
End Sub

Bon Aprèm

@+Thierry
​

 

[pascal21]

Re : effacer les lignes où dates trop anciennes

bonsoir et merci