Filtre vba

Fermé
xmma1995 - 25 avril 2016 à 14:45
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 avril 2016 à 08:19
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


A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 avril 2016 à 16:50
Bonjour

les filtres posent problème au delà de 1000 lignes...

qu'il y a t il dans la colonne C: date, jan, janvier... ?
0
Bonjour Michel,
j'ai un problème avec le signe <>
si j'utilise le même code et je liste les 9 mois restants il fonctionne très bien, mais je veux un code court pour pouvoir avancer
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > xmma1995
26 avril 2016 à 08:19
Bonjour,

Que veux tu que je fasse pour t'aider si tu ne réponds pas à mes questions....

Bonne continuation
0