Filtre vba
xmma1995
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche à corriger mon code svp,
dans ma base je veux garder que les ligne JAN FEV MAR et supprimer le reste
With Worksheets("Base")
Range("c3:c3000").AutoFilter Field:=3, Criteria1:(<>"Janvier", <>"Février", <>"Mars", "="), Operator:=xlFilterValues
Range("c3:c3000").Offset(1, 0).Resize(Range("c4:c3000"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
ActiveSheet.ShowAllData
END WITH
Je cherche à corriger mon code svp,
dans ma base je veux garder que les ligne JAN FEV MAR et supprimer le reste
With Worksheets("Base")
Range("c3:c3000").AutoFilter Field:=3, Criteria1:(<>"Janvier", <>"Février", <>"Mars", "="), Operator:=xlFilterValues
Range("c3:c3000").Offset(1, 0).Resize(Range("c4:c3000"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
ActiveSheet.ShowAllData
END WITH
