Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel sup lig

sup lig

2 réponses
Avatar
Manu
Bonsoir,

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

Merci

Manu
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de news:
Bonsoir,

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

Merci

Manu
Avatar
Manu
Super, merci

"MichDenis" a écrit dans le message de news:

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" a écrit dans le message de news:

Bonsoir,

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

Merci

Manu