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:

Filtre vba
Photo filtre gratuit - Télécharger - Retouche d'image
Filtre teams - Accueil - Visio
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
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... ?

xmma1995
25 avril 2016 à 16:57

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310 > 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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

comment contourner la fonction FILTRE

La fonction FILTRE n'est plus reconnue

Méthode find dans VBA - Recherche de données sous Excel