Faire un tri entre deux dates [Résolu]

Signaler
Messages postés
6
Date d'inscription
jeudi 17 juin 2021
Statut
Membre
Dernière intervention
8 juillet 2021
-
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
-
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

4 réponses

Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
880
bonjour,
"aboutit plus a rien": que vois-tu?
quand tu examines le filtre, il a bien été mis à jour par la macro?

La page où le filtre doit être exporté est vide alors que la macro intègre bien les bonnes dates. A la mano je sais qu il doit y avoir 5 lignes exportées
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
880 > Vbadebutant_3525
comment se fait l'exportation?
qu'est-ce qui est affiché sous le filtre?
>
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021

L exportation se fait par macro vers un autre fichier. Sous le filtre, toutes les exportations sont faites sauf celles qui ont des contraintes de dates (ici, les lignes dont les dates sont attendues la semaine prochaine)
Vous voulez voir la macro complète ?
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
880 > Vbadebutant_3525
qu'est-ce qui est affiché sous le filtre? le filtre fonctionne-t-il?
Messages postés
6
Date d'inscription
jeudi 17 juin 2021
Statut
Membre
Dernière intervention
8 juillet 2021

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
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
880
Quand la macro modifie le filtre, cela ne modifie-t-il pas simultanément ce qui est affiché dans la feuille Workbooks("Fichier1").Worksheets("Feuil1")?
Messages postés
6
Date d'inscription
jeudi 17 juin 2021
Statut
Membre
Dernière intervention
8 juillet 2021

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
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
880
veux-tu dire que tu n'as pas vérifié ce qui se passait pendant l'éxécution de la macro, en l'arretant après la mise à jour du filtre?
Messages postés
6
Date d'inscription
jeudi 17 juin 2021
Statut
Membre
Dernière intervention
8 juillet 2021

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?
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
880
Messages postés
6
Date d'inscription
jeudi 17 juin 2021
Statut
Membre
Dernière intervention
8 juillet 2021
>
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021

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 !
Messages postés
16448
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 juillet 2021
880 >
Messages postés
6
Date d'inscription
jeudi 17 juin 2021
Statut
Membre
Dernière intervention
8 juillet 2021

peux-tu alors marquer la discussion comme résolue?