Discussion :

[BD_NXO]

Bonjour,

Je cherche le code VBA me permettant de supprimer sur mon tableau ci-joint, toutes les lignes qui ont une date avant le 01/01/2014 (colonne G).
Merci d’avance de votre aide !

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets("Sheet1")
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("G2:G" & LastLig).AutoFilter , Field:=1, Criteria1:="<" & DateSerial(2014, 4, 1)
    If .Range("G2:G" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("G3:G" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

[BD_NXO]

Merci beaucoup Mercatog!