Demande du critere de choix du filtre [Résolu/Fermé]

Signaler
-
 cob71 -
Bonjour,



Toujours le meme projet de fiche client, actuelement je fitre les donnees de la colonne 4 "heure de RDV" à la date d'aujourd'hui, mais j'aimerai qu'au debut de l'execution de ma macro une fenetre s'ouvre afin que je puisse rentré une date ou une plage pour le filtre.

Manuelement pas de soucis, mais apres avoir recopié le code comment faire pour que la demande m'apparaisse.

Merci par avance

5 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 160
Bonjour,
Sans plus de détail impossible de t'aider.
Montre le code de la macro, ce sera déjà un départ.
A+
Bonjour, voici un bout du code



<filtre = Sheets("feuil1").Cells(1, 1)
'Ouvre le fichier


Workbooks.Open Filename:=NOMFICH
Windows("test.xlsx").Activate


'filtre les données ( ne garde que les postes du jour designé)


Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$J$36612").AutoFilter Field:=4, Criteria1:=filtre, Operator:=xlAnd


' ActiveSheet.Range("$A$1:$J$48").AutoFilter Field:=4, Criteria1:= _
' xlFilterToday, Operator:=xlFilterDynamic>




comme tu peux voir j'ai du faire appel a une cellule presente sur la feuille ou ce trouve le bouton (pour mettre en route la macro) pour ecrire la date du filtre desire, j'aurai aimer qu'au demarage de la macro ouvrir une fenetre (type popup) demandant la ou les dates des RDV desires.

J'espere avoir ete plus claire, merci d'avance
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 160
Je ne comprend pas bien la nécessité de faire une macro pour cela.
Si tu met (manuellement) un filtre automatique au dessus de ton tableau il n'y a que de sélectionner une date dans la liste déroulante de la colonne D ?
A+
excuse, tu n'as que le debut, par la suite le premier classeur est filtre et trier les lignes restantes sont coller dans un nouveau classeur avec en feuil1 un modele de fiche que je dois sortir par RDV, enfin ces fiches sont imprime et le classeur sauvegarde avec la date des rendez vous dans le nom.
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 160
Dans ce cas, je verrais deux solutions possibles (entre autre)
1°) Saisie au moyen d'un "InputBox" mais elle serait tributaire de l'entrée faite par l'utilisateur genre 12/3/2011 ou 12/03/2011 ou etc..
2°) Un UserForm avec 3 comboBox pour le jour, mois et année ce qui permetrait le bon formatage du filtre.
A+
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 160
PS: En relisant tes postes...
Avec AutoFilter pas possible de choisir plusieurs critères sur un même scénario, si c'est nécessaire tu dis, je te ferais une fonction qui le permet.
Ou, pour séparer les dates, employer un tableau (dans l'UF) et une boucle dans la macro qui ferait successivement le tri des dates.
Merci beaucoup pour la reponse, je vais essayer.
Oui tres en retard pb de connexion, il faut que je reprenne pour marquer résolu, encore merci.
Pardon, comment mettre resolu, j'ai reussi une fois mais pas la !!
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 160
En haut a gauche de ton topic.
Mais je le fait pour toi.
A+
merci encore pour tout