Faire un tri entre deux dates

Résolu
vbadebutant_3525 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 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

4 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 583
 
bonjour,
"aboutit plus a rien": que vois-tu?
quand tu examines le filtre, il a bien été mis à jour par la macro?
0
Vbadebutant_3525
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > Vbadebutant_3525
 
comment se fait l'exportation?
qu'est-ce qui est affiché sous le filtre?
0
Vbadebutant_3525 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
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 ?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > Vbadebutant_3525
 
qu'est-ce qui est affiché sous le filtre? le filtre fonctionne-t-il?
0
vbadebutant_3525 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583
 
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")?
0
vbadebutant_3525 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583
 
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?
0
vbadebutant_3525 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
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?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583
 
https://www.commentcamarche.net/contents/1381-debogage
0
vbadebutant_3525 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
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 !
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > vbadebutant_3525 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu alors marquer la discussion comme résolue?
0