Faire un tri entre deux dates
Résolu
vbadebutant_3525
Messages postés
6
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
Bonjour,
Je travaille sur un tableau de 3000 lignes et 35 colonnes. Ma macro permet de selectionner des lignes pour lesquelles les dates étaient comprises entre deux dates fixées manuellement. Cependant, après 4 mois de bons et loyaux services, cette partie de la macro n'aboutit plus a rien (sans indiquer d'erreur!)
Le format des dates est bien un format Date (jj/mm/yy) dans les cellules.
la colonne 18 est celle sur laquelle porte la macro.
Workbooks("Fichier1").Worksheets("Feuil1").Activate
Range.AutoFilter Field:=1, Criteria1:="F"
Range.AutoFilter Field:=18, Criteria1:=">6/19/2021", _
Operator:=xlAnd, Criteria2:="<6/25/2021"
Range("A:J, M:M, Q:S, V:V, Y:Y, AB:AJ").Columns.Hidden = Not Columns("C").Hidden
Workbooks("Fichier1").Worksheets("Feuil1").Select
Range("Tableau1#All").Select
Range(Selection, Selection.End(xlDown)).Select
Je travaille sur un tableau de 3000 lignes et 35 colonnes. Ma macro permet de selectionner des lignes pour lesquelles les dates étaient comprises entre deux dates fixées manuellement. Cependant, après 4 mois de bons et loyaux services, cette partie de la macro n'aboutit plus a rien (sans indiquer d'erreur!)
Le format des dates est bien un format Date (jj/mm/yy) dans les cellules.
la colonne 18 est celle sur laquelle porte la macro.
Workbooks("Fichier1").Worksheets("Feuil1").Activate
Range.AutoFilter Field:=1, Criteria1:="F"
Range.AutoFilter Field:=18, Criteria1:=">6/19/2021", _
Operator:=xlAnd, Criteria2:="<6/25/2021"
Range("A:J, M:M, Q:S, V:V, Y:Y, AB:AJ").Columns.Hidden = Not Columns("C").Hidden
Workbooks("Fichier1").Worksheets("Feuil1").Select
Range("Tableau1#All").Select
Range(Selection, Selection.End(xlDown)).Select
A voir également:
- Faire un tri entre deux dates
- Nombre de jours entre deux dates excel - Guide
- Comment faire un tri personnalisé sur excel - Guide
- Comment faire deux colonnes sur word - Guide
- Logiciel tri photo - Guide
- Deux ecran pc - Guide
4 réponses
bonjour,
"aboutit plus a rien": que vois-tu?
quand tu examines le filtre, il a bien été mis à jour par la macro?
"aboutit plus a rien": que vois-tu?
quand tu examines le filtre, il a bien été mis à jour par la macro?
Je ne dois pas comprendre la question. La macro fonctionne sauf pour la partie dépendant des dates et n'engendre aucun message d'erreur. Les onglets qui doivent contenir le résultat des parties avec encadrement de dates sont VIDES, les autres sont remplis correctement
Non, le filtre ne modifie pas le fichier sur lequel porte la macro : il remplit des onglets dans un autre fichier xlsm ouvert en parallèle
effectivement. j'ai lancé la macro a partir du fichier vba en demandant pas a pas détaillé et je l'ai laissé se dérouler jusqu'à réalisation. Comment l'arrêter après la mise jour?
Finalement, aucune erreur mais les bornes n'étaient pas prises en compte : j'ai modifié la macro :
Workbooks("Fichier1").Worksheets("Feuil1").Activate
Range.AutoFilter Field:=1, Criteria1:="F"
Range.AutoFilter Field:=18, Criteria1:=">=6/19/2021", _
Operator:=xlAnd, Criteria2:="<=6/25/2021"
Merci pour les infos sur le débogage !
Workbooks("Fichier1").Worksheets("Feuil1").Activate
Range.AutoFilter Field:=1, Criteria1:="F"
Range.AutoFilter Field:=18, Criteria1:=">=6/19/2021", _
Operator:=xlAnd, Criteria2:="<=6/25/2021"
Merci pour les infos sur le débogage !
qu'est-ce qui est affiché sous le filtre?
Vous voulez voir la macro complète ?