sup lig

Le
Manu
Bonsoir,

Je souhaiterais supprimer toutes les lignes completes dont les cellules de
la colonne B sont inferieur à aujourdhui()

Merci

Manu
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #11174161
Quelque chose du genre :


Sub test()
Dim X As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
X = .Range("B65536").End(xlUp).Row
With .Range("A1:A" & X)
.CurrentRegion.AutoFilter field:=2, Criteria1:="<" & CLng(Date)
End With
.Range("A2:A" & X).EntireRow.SpecialCells(xlCellTypeVisible).Delete
.Range("A1:A" & X).AutoFilter
End With
End Sub




"Manu" Bonsoir,

Je souhaiterais supprimer toutes les lignes completes dont les cellules de
la colonne B sont inferieur à aujourdhui()

Merci

Manu
Manu
Le #11176601
Super, merci

"MichDenis"
Quelque chose du genre :


Sub test()
Dim X As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
X = .Range("B65536").End(xlUp).Row
With .Range("A1:A" & X)
.CurrentRegion.AutoFilter field:=2, Criteria1:="<" & CLng(Date)
End With
.Range("A2:A" & X).EntireRow.SpecialCells(xlCellTypeVisible).Delete
.Range("A1:A" & X).AutoFilter
End With
End Sub




"Manu"
Bonsoir,

Je souhaiterais supprimer toutes les lignes completes dont les cellules de
la colonne B sont inferieur à aujourdhui()

Merci

Manu




Publicité
Poster une réponse
Anonyme