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

Macro de Filtrage avec plage de dates

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Barberousse113
  • 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
B

Barberousse113

Guest
Bonjour,

Un ami m'a passé un extract de SAP sur lequel je souhaiterais effectuer des macros de filtrage.
Le premier filtre que je dois utiliser est un des filtres automatiques.
Cependant je dois ensuite filtrer sur une plage de date : je m'explique.
Pour chaque ligne, j'ai un champ date au format (m)m/(d)d/yyyy.

Ce que je cherche à réaliser serait une macro demandant sur quelle mois et quelle année l'utilisateur veut effectuer le tri et ensuite lui retourner les cellulles avec un champ date faisant partie du mois demandé.

Si mon fichier vous serait utile, je le rajouterai, (j'ai préféré ne pas surcharger ds un premier temps.

D'avance grand merci

PS : Je suis un débutant (un peu boulet) en VBA, j'utilise Excel 2003 SP2 sous Windows XP
 
Trier par date Trier par votes
Re : Macro de Filtrage avec plage de dates

Sorry, je n'avais pas vu tes dernières réponses
avec la dernière macro que tu a s donnée : 11 et 2007 donnent 11/01/2007
 
Vote positif 0 Vote négatif
Re : Macro de Filtrage avec plage de dates

Oui, c'est bien sur un mois, ceci était un essai en fait...
Enfin, les résultats ne correspondent pas vraiment avec le filtre
 
Vote positif 0 Vote négatif
Re : Macro de Filtrage avec plage de dates

RE


La fonction permet de formater des dates aux format anglais


As-tu testé cette macro?
Code: 
Sub lastTEST()
Dim XX As String
Dim ANNEE As String
Dim MOIS As String
ANNEE = InputBox("Quelle année?", "Choix de l'année")
MOIS = InputBox("Quel mois?", "Choix du mois")
'renvoie le premier jour du mois (à cause du 1)
XX = ANNEE & "/" & MOIS & "/1"
MsgBox format(DateValue(XX), "mm/dd/yyyy")
End sub
Sur mon PC (francophone), j'ai bien un affichage
12/01/2007
Pour ANNEE=2007
Et MOIS=12
 
Vote positif 0 Vote négatif
Re : Macro de Filtrage avec plage de dates

Re


Donc en reprenant le code de 15h00

Code: 
Sub Macro1()
Dim X As String
Dim ANNEE As String
Dim MOIS As String
Dim Criter As String
Dim Criter2 As String
ANNEE = InputBox("Quelle année?", "Choix de l'année")
MOIS = InputBox("Quel mois?", "Choix du mois")
'renvoie le premier jour du mois (à cause du 1)
X = "1/" & MOIS & "/" & ANNEE
Select Case MOIS
Case 1, 3, 5, 7, 8, 10, 12
Criter2 = Format(CDate(X) + 30, "mm/dd/yyyy")
Case 4, 6, 9, 11
Criter2 = Format(CDate(X) + 29, "mm/dd/yyyy")
End Select
Criter = Format(X, "mm/dd/yyyy")
Range("H1").AutoFilter Field:=9, Criteria1:=">=" & Criter, Operator:=xlAnd _
, Criteria2:="<=" & Criter2
End Sub
et celui-là
Code: 
Dim XX As String
Dim ANNEE As String
Dim MOIS As String
Dim FIN_MOIS As String
ANNEE = InputBox("Quelle année?", "Choix de l'année")
MOIS = InputBox("Quel mois?", "Choix du mois")
'renvoie le premier jour du mois (à cause du 1)
XX = ANNEE & "/" & MOIS & "/1"
FIN_MOIS = ANNEE & "/" & MOIS & "/31"
MsgBox Format(DateValue(XX), "mm/dd/yyyy")
MsgBox Format(DateValue(FIN_MOIS), "mm/dd/yyyy")
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro de Filtrage avec plage de dates

RE

Je te laisse tester
Code: 
Sub MacroFIN()
Dim X As String
Dim ANNEE As String
Dim MOIS As String
Dim FIN_MOIS_31 As String
Dim FIN_MOIS_30 As String
Dim Criter As String
Dim Criter2 As String
ANNEE = InputBox("Quelle année?", "Choix de l'année")
MOIS = InputBox("Quel mois?", "Choix du mois")
'renvoie le premier jour du mois (à cause du 1)
XX = ANNEE & "/" & MOIS & "/1"
FIN_MOIS_31 = ANNEE & "/" & MOIS & "/31"
FIN_MOIS_30 = ANNEE & "/" & MOIS & "/30"
Select Case MOIS
Case 1, 3, 5, 7, 8, 10, 12
Criter2 = format(DateValue(FIN_MOIS_31), "mm/dd/yyyy")
Case 4, 6, 9, 11
Criter2 = format(DateValue(FIN_MOIS_30), "mm/dd/yyyy")
Case 2
MsgBox "Pas encore traité le mois Février"
End
End Select
Criter = format(DateValue(XX), "mm/dd/yyyy")
Range("H1").AutoFilter Field:=9, Criteria1:=">=" & Criter, Operator:=xlAnd _
, Criteria2:="<=" & Criter2
End Sub
 
Vote positif 0 Vote négatif
Re : Macro de Filtrage avec plage de dates

Re

Voici ma dernière contribution
Théoriquement gère maintenant le mois de Février
Code: 
Sub MACRO_SEMBLANT_FONCTIONNER()
'Déclarations
Dim ANNEE As Long: Dim MOIS As Long
Dim Date_DEB As Date: Dim US_Date As Long
'Choix du de l'année
ANNEE = InputBox("Quelle année?", "Choix de l'année")
'Choix du mois
MOIS = InputBox("Quel mois?", "Choix du mois")
'Formatage de la date
Date_DEB = DateSerial(ANNEE, MOIS, 1)
US_Date = Date_DEB
'Application du filtre selon mois choisi
Select Case MOIS
Case 1, 3, 5, 7, 8, 10, 12
Range("H1").AutoFilter Field:=9, Criteria1:=">=" & US_Date, Operator:=xlAnd _
, Criteria2:="<=" & US_Date + 30
Case 4, 6, 9, 11
Range("H1").AutoFilter Field:=9, Criteria1:=">=" & US_Date, Operator:=xlAnd _
, Criteria2:="<=" & US_Date + 29
Case 2
If Month(US_Date + 28) = 2 Then
Range("H1").AutoFilter Field:=9, Criteria1:=">=" & US_Date, Operator:=xlAnd _
, Criteria2:="<=" & US_Date + 28
ElseIf Month(US_Date + 27) = 2 Then
Range("H1").AutoFilter Field:=9, Criteria1:=">=" & US_Date, Operator:=xlAnd _
, Criteria2:="<=" & US_Date + 27
End If
End Select
End Sub
Je la passe la main aux autres forumeurs.
 
Vote positif 0 Vote négatif
Re : Macro de Filtrage avec plage de dates

J'ai pris le temps de tester...longtemps
la conclusion ????

MERCI !!!!!!!!🙂🙂🙂

Je vais maintenant pouvoir extraire à retour de bras 🙂))

Encore merci
 
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

  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
572
Raziel abel
S
  • Résolu(e)
Microsoft 365 Copie de plage à plage avec incrémentation
Réponses
4
Affichages
433
Simon 1234
S
C
  • Résolu(e)
XL 2016 Problème de TCD avec Champ Date
Réponses
11
Affichages
2 K
chris
A
  • Résolu(e)
XL 2013 Automatisation avec macro de recherche et extraction de données
Réponses
5
Affichages
523
Adrien NCH
A
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
958
Dock91
D
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
871
oguruma
K
  • Question Question
Microsoft 365 Erreur sur la recherche via 2 combo Box aux choix de l'utilisateur
Réponses
6
Affichages
670
Dranreb
R
  • Question Question
Microsoft 365 Fonction SI avec dates et plage de données
Réponses
3
Affichages
2 K
patoche42500
P
I
  • Question Question
XL 2016 Colorer cellules entre 2 dates et étendre la mise en forme et ajout de texte
Réponses
1
Affichages
636
Irina1009
I
C
  • Question Question
XL 2019 Filtrage de données en VBA
Réponses
11
Affichages
2 K
Phil69970
S
  • Question Question
Microsoft 365 Macro pour addition dynamique de donnees
Réponses
8
Affichages
1 K
AtTheOne
V
  • Résolu(e)
Microsoft 365 Macro pour sélectionner une plage de cellules selon une couleur de remplissage donnée
Réponses
2
Affichages
1 K
vash966
V
S
  • Résolu(e)
XL 2016 Tri et copié coller de valeur selon date et varibale en automatique
2
Réponses
29
Affichages
2 K
StanislasC
S
M
  • Question Question
Microsoft 365 [VBA] Filtrage VBA pour obtenir les dates avec le mois précédent le mois en cours
Réponses
10
Affichages
2 K
maxime45
M
B
  • Question Question
XL 2013 RECHERCHE V AVEC COLORISATION OU MACRO AVEC COLORISATION
Réponses
1
Affichages
836
bakugo
B
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
  • Résolu(e)
XL 2016 Macro impression multiple avec incrémentation de dates
Réponses
6
Affichages
1 K
Etoto
K
  • Question Question
Microsoft 365 [VBA]Retourner la valeur min d'un ligne avec une plage coupée
Réponses
3
Affichages
981
Dudu2
J
  • Question Question
XL 2016 Ajout lignes dans fichier CSV avec filtrage - VBA
Réponses
2
Affichages
2 K
Joshua P
J
C
  • Question Question
XL 2016 VBA avec recherche
2
Réponses
20
Affichages
2 K
CYRIL CAMPAS
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…