Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

filtre par mois sur un autre onglet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion kastor
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kastor

Guest
Bonjour,

j'aimerais faire un filtre pour ne prendre que les valeurs d'une colonne.
J'ai déjà ce code

Range("W1", Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Criteria1:="01/07/2013"

Qui ne conserve que le 1er juillet 2013. (Cette colonne contient chaque jour de l'année 2013)

et donc, ma question. !!!!

Comment faire pour ne conserver que les jours du mois de juillet.

j'ai imaginé ce code

Range("W1", Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Criteria1:="*/07/*"

mais forcément, ça ne fonctionne pas. Je me tourne vers vous pour m'apporter une lumière.

Merci d'avance.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : macro filtre avec une partie d'une cellule

Range("W1", Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "7/31/2013")

pour ceux qui veulent, voilà la solution...... (le 7 représente le mois de juillet, donc pour les autres mois ex: janvier la date devra etre 01/31/2013.

Bonne journée à tous
 
Vote positif 0 Vote négatif
Re : filtre par mois sur un autre onglet

BON !!!!! j'ai un autre problème.

j'utilise donc une checkbox (sur laquelle on sélectionne le ou les mois désirés)
ce code est placé sur la feuille ou il y a la checkbox mais il doit modifier une autre feuille (onglet planning)

Code: 
If CheckBox7 = True Then

Sheets("planning").Range("W1", Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "7/31/2013")

Else

Sheets("planning").Range("W1", Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria1:=Array(1, "7/31/2013")
        End If
mais je n'arrive pas à utiliser ce code sur un autre onglet.
j'ai simplement ajouté "Sheets("planning")." mais ça n'est pas suffisant.

Avez vous un idée ???
 
Vote positif 0 Vote négatif
Re : filtre par mois sur un autre onglet

Bonjour,

essaye en rajoutant également le nom de la feuille aux "cells" :
Code: 
Sheets("planning").Range("W1", Sheets("planning").Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "7/31/2013")

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : filtre par mois sur un autre onglet

Par contre
comment faire si je veux ajouter un autre filtre ??

exemple :
M1 = InputBox("Merci de renseigner le code !", vbOKCancel)

Sheets("planning").Range("C1", Sheets("planning").Cells(Rows.Count, "C").End(xlUp)).AutoFilter Field:=1, Criteria1:=M1

Pour résumer mon code précédent est sur une feuille (destination) sur laquelle tout vient se renseigner
et ce code est dans un module "classique" dans lequel je fais d'autres traitements.

mais si le lance ce code après celui vu précédemment, ça ne fonctionne plus car il me vide toutes les lignes.

😕
 
Vote positif 0 Vote négatif
Re : filtre par mois sur un autre onglet

Re,

euh... pas sur d'avoir tout compris... regarde dans l'aide vba la méthode "AutoFilter" tu dois avoir un 2ème argument "criteria2", il faudra également utiliser un "operator"... essaye avec l'enregistreur de macro, te donnera un code brut qu'il faudra adapter....
 
Vote positif 0 Vote négatif
Re : filtre par mois sur un autre onglet

Je reviens une nouvelle fois sur ce post...

dans ce filtre j'arrive à ne pas sélectionner les lignes avec "1" en colonne C pour supprimer toutes les autres (celles qui sont visibles, avant d'être supprimées)

Code: 
Sheets("feuil1").Range("C1", Sheets("feuil1").Cells(Rows.Count, "C").End(xlUp)).AutoFilter Field:=1, Operator:= xlFilterValues, Criteria1:="<>" & "1"
     
                With Sheets("feuil1").Cells
                    .Rows(1).EntireRow.Hidden = True
                    .SpecialCells(xlCellTypeVisible).Delete
                    .AutoFilter
                    .EntireRow.Hidden = False
                End With

et j'aimerais faire la même chose en ne sélectionnant pas les dates qui ne sont pas du mois de septembre. avec un code similaire, mais ça ne fonctionne pas. Auriez-vous une idée ???
Code: 
Sheets("feuil1").Range("W1", Sheets("feuil1").Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Operator:=  xlFilterValues, Criteria2:="<>" & Array(1, "9/30/2013")
J'ai
Erreur d'exécution '13':
Incompatibilité de type.

Je m'y prends peut être mal, mais le but est de copier sur une autre feuilles toutes les lignes qui ont une date en septembre.
 
Vote positif 0 Vote négatif
Re : filtre par mois sur un autre onglet

Bon j'ai enfin trouvé.

pour ceux que ça intéresse

Code: 
Sheets("feuil1").Range("$A:$AD").AutoFilter Field:=1, Criteria1:=xlFilterAllDatesInPeriodJanuary, Operator:=xlFilterDynamic
Sheets("feuil1") => nom de la feuille
Range("$A:$AD") => la plage à filtrer
Field:=1 => le numéro de la colonne ou ce situe les valeurs de recherche
Criteria1:=xlFilterAllDatesInPeriodJanuary => pour le mois de janvier, Februray pour février ... etc
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
398
Hecatonchire
H
P
  • Question Question
Microsoft 365 problème de filtre avec une checkbox
2
Réponses
18
Affichages
1 K
ChTi160
L
  • Résolu(e)
Microsoft 365 Trie par Date & Heure
Réponses
8
Affichages
653
Le Rouky
L
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
911
TooFatBoy
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
1 K
Phil69970
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
791
Usine à gaz
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
5 K
Xender
X
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
834
guiyom
G
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
R
  • Résolu(e)
XL 2019 Plusieurs Worksheet_Change sur la même feuille
Réponses
9
Affichages
781
Rabeto
R
S
  • Résolu(e)
Microsoft 365 Boucler une macro avec un filtre variable
Réponses
5
Affichages
640
Dranreb
P
  • Résolu(e)
XL 2016 4 étapes en 1 seule Excel vba
Réponses
4
Affichages
933
Pygos691
P
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
D
  • Résolu(e)
Autres Problème de séléction de la dernière colonne + Filtre [VBA]
Réponses
2
Affichages
767
delsart59
D
A
  • Résolu(e)
XL 2016 Boucle avec tri par date sur onglets
Réponses
6
Affichages
782
Aldonanou
A
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
  • Résolu(e)
Microsoft 365 VBA: Filtrer sur les données vide
Réponses
11
Affichages
2 K
VBA_dev_Anne_Marie
L
  • Résolu(e)
XL 2019 VBA - Autofilter - Prob: Copie toute la plage sans prendre en compte le filtre
Réponses
8
Affichages
945
Lolexcel
L
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
800
Claudinedu13
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…