Filtre vba

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


1 réponse

michel_m
Messages postés
16570
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
26 mai 2022
3 280
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
16570
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
26 mai 2022
3 280 > 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