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.
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.