XL 2010 VBA filtre & conditions

[Trishia]

Bonjour,


Je souhaite compléter cette macro (+fichier joint) afin que lorsque le filtre ne trouve aucune valeur il ne supprime rien.


Sub Macro1()

Selection.AutoFilter Field:=1, Criteria1:="10"

ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Select

Selection.EntireRow.Delete

ActiveSheet.ShowAllData

Range("A1").Select

End Sub


Je ne sais pas utiliser If et Then...

Merci d’avance de votre aide.

 

[Staple1600]

Bonsoir à tous

Est-ce que c'est mieux ainsi?

Sub macro2()
Rows(1).AutoFilter Field:=1, Criteria1:="10"
On Error Resume Next
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData
End Sub

 

[Trishia]

Bonjour,
Oui, merci !