Microsoft 365 Suppression ligne si date inférieure à la date du jour

[libellule85]

Bonsoir le forum,

J'aimerais créer une macro qui à l'ouverture du fichier supprime les lignes dont la date est inférieure à la date du jour.
D'avance merci pour votre aide

 

[Jacky67]

Bonsoir le forum,

J'aimerais créer une macro qui à l'ouverture du fichier supprime les lignes dont la date est inférieure à la date du jour.
D'avance merci pour votre aide

Bonjour,
Ceci dans le ThisWorkbook devrait faire
En adaptant le codename de la feuille (Feuil1 dans l'exemple)

Private Sub Workbook_Open()
    Dim plage
    With Feuil1    ' A adapter
        If .FilterMode Then .ShowAllData
        If .[a4] = "" Then .[a4] = "Date"
        Set plage = .Range("$A$4:$A$" & .Cells(.Rows.Count, "A").End(xlUp).Row)
    End With
    plage.AutoFilter Field:=1, Criteria1:="<" & CDbl(Date)
    On Error Resume Next    'rien a filtrer
    plage.Offset(1).Resize(plage.Rows.Count - 1).EntireRow.SpecialCells(xlCellTypeVisible).Delete
    plage.AutoFilter
End Sub

 

[libellule85]

Bonsoir Jacky67,

Merci beaucoup pour ta réponse.
Bonne soirée

 

[Jacky67]

Bonsoir Jacky67,

Merci beaucoup pour ta réponse.
Bonne soirée

Re..
Reprendre le code #2, j'avais omis des "."(point)
Désolé