Discussion :

[minoslha]

Bonjour à Tous,

j'ai un fichier de données que vous trouverez en pieces jointes.
le but cherché est de supprimer par macro les lignes dont la date en colonne D est vide ou inferieure à la date d'aujourd'hui
pour cela j'ai écrit ceci en VBA :
le filtre personalisé :date vide est bien pris en compte mais pas le deuxième critère (inf à la date d'aujourd'hui).
j'ai essayé d'inverser les deux criteres, le problème est le même. il ne prends en compte que le critère 2

Quelqu'un peut il m'aider à résoudre ce problème

Code :

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

1
2
3
4
5
6
7
8
9
Sub SupprDonnéesInutiles()
    ActiveSheet.Cells.AutoFilter Field:=4, Criteria1:="<" & Date, Operator:=xlOr, Criteria2:="="
    For Each c In [_filterdatabase].Offset(1).Resize(, 1).SpecialCells(xlCellTypeVisible)
        LigFiltrée = c.Row: Exit For
    Next c
    ActiveSheet.Rows("" & LigFiltrée & ":" & LigFiltrée & "").Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp
    ActiveSheet.Cells.AutoFilter Field:=4
End Sub