for n=Range("A65536").End(xlup).row to 1 step -1
if range("A" & n)="10" then rows(n).delete ' 10 au lieu de "10" si chiffre et non texte
next n
Su suppr_lignes
With [A1]
.AutoFilter Field:=1, Criteria1:="10"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub
Sub suppr_FiltreElabore()
Dim rF As Range
With ActiveSheet
.Range("C2").FormulaR1C1 = "=OR(COUNTIF(RC[-2],""10""),COUNTIF(RC[-2],""*10*""))"
.Range("A1:A" & [A65536].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("C1:C2"), Unique:=False
Set rF = .Range("_FilterDataBase")
rF.Offset(1, 0).Resize(rF.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.ShowAllData
.Range("C2").Clear
End With
End Sub
Sub code_pierre_jean_bis()
Dim Rng As Range
For n = Range("A65536").End(xlUp).Row To 2 Step -1
Set Rng = Range("A" & n)
If Hour(Rng) Or Minute(Rng) = 10 Then Rows(n).Delete ' 10 au lieu de "10" si chiffre et non texte
Next n
End Sub
for n=Range("A65536").End(xlup).row to 1 step -1
if range("A" & n)=10/24 then rows(n).delete
next n