XL 2010 VBA filtre & conditions

Trishia · 3 Août 2016

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 · 3 Août 2016

Bonsoir à tous

Est-ce que c'est mieux ainsi?

VB:

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 · 22 Août 2016

Bonjour,
Oui, merci !

XL 2010 VBA filtre & conditions

Trishia

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Trishia

XLDnaute Nouveau

Discussions similaires

XL 2010 VBA filtre & conditions

Trishia

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Trishia

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency