Faire un tri entre deux dates
Résolu
vbadebutant_3525
Messages postés
6
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
- Faire un tri sur excel - Guide
- Comment faire deux colonnes sur word - Guide
- Logiciel tri photo - Guide
- Deux ecran pc - Guide
4 réponses
yg_be
Messages postés
23437
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 587
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?
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 ?