Suppression automatique de données périmées Excel

bonsoir Gourdange

J'espere que la macro ci dessous pourra t'aider .
Si les dates saisies dans la colonne A sont dépassées de 5 jours par rapport à la date du jour , les lignes sont supprimées


Sub SuppressionSelonDate()
Dim Cible As Integer, j As Integer

Cible = Range("A65536").End(xlUp).Row

Application.ScreenUpdating = False
For j = Cible To 1 Step -1
If Cells(j, 1) < Date - 5 Then Rows(j).Delete
Next
Application.ScreenUpdating = True

End Sub


bonne soiree
michel

Bonjour Michel,

J'ai reçu finalement une réponse sur un autre fil "VBA : j'y connais rien" car j'avais plusieurs pb avec mon fichier.

Je prends bonne note de ta macro (vu que j'y connais rien) : elle me servira par la suite.

Entre temps, on m'a fourni la macro suivante pour la même fonction :

Option Explicit

Public num_lig As Integer

Sub Filtre()

Dim i As Integer
Dim D As Date

i = 3
D = Date
' pour toutes les lignes avec auteur renseigné
While Range("B" & i) <> ""
If Range("I" & i) <> "" Then
If Range("I" & i) + 90 < D Then
Rows(i & ":" & i).Delete Shift:=xlUp
Else
i = i + 1
End If
Else
i = i + 1
End If
Wend

End Sub

Et ça fonctionne.

Merci à toi Michel
Marie "Gourdange"