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
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
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" <manuel.gamin@wanadoo.fr> a écrit dans le message de news: ubveRkG3IHA.3544@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Je souhaiterais supprimer toutes les lignes completes dont les cellules de
la colonne B sont inferieur à aujourdhui()
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
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
Super, merci
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OEYFv2G3IHA.3348@TK2MSFTNGP03.phx.gbl...
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" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
ubveRkG3IHA.3544@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Je souhaiterais supprimer toutes les lignes completes dont les cellules de
la colonne B sont inferieur à aujourdhui()
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()