Pb de dates!

[Céline67]

Bonjour à tous!

Aujourd'hui, j'ai un soucis de date dans mes macros.
Dans une InputText, je demande de saisir le mois souhaité pour effectuer un calcul.


Dim mois_calcul as string
mois_calcul = InputBox("Pour quel mois voulez-vous le calcul d'indicateur? (mm/aaaa) ")

Après il faut faire une recherche dans une colonne d'une de mes feuilles "Rapport" avec comme critère sur une date qui doit etre comprise entre
mois_calcul-6mois et mois_calcul+1mois
et la comme mon mois_calcul est une string bin ... je suis bloquée! je ne vois pas comment faire ... 😕

Ex: je veux calculer les indicateurs pour septembre 2006:
Je saisis 09/2006 dans mon inputbox.
l'intervalle de tri doit etre 1/04/2006 et 1/10/2006

selection.AutoFilter Field:=6, Criteria1:=">=01/04/2006", Operator:=xlAnd _
, Criteria2:="<01/10/2006"

Merci de votre aide
Céline

 

[Mouchty85]

Re : Pb de dates!

bonjour,
si tu pouvais nous envoyer ton fiher zippze en pièce jionte.

Merci

 

[Céline67]

Re : Pb de dates!

Voici un lien vers mon fichier allégé!

Edition : Mettre des données Bidons STP (lien supprimé)
Pascal

 

[PascalXLD]

Re : Pb de dates!

Bonjour

peut-être mais pas testé

dim madate1 as string
dim madate2 as string
dim madate

Dim mois_calcul as string
mois_calcul = InputBox("Pour quel mois voulez-vous le calcul d'indicateur? (mm/aaaa) ")

madate=cdate("01/" & mois_calcul)
madate1=cstr(dateadd("m",-5,madate)
madate2=cstr(dateadd("m",1,madate)



selection.AutoFilter Field:=6, Criteria1:=">=" & madate1, Operator:=xlAnd _
, Criteria2:="<" & madate2

 

[Céline67]

Re : Pb de dates!

mais j'avais modifié mes données!

 

[PascalXLD]

Re : Pb de dates!

re

Que les filtrées mais pas les autres

 

[Céline67]

Re : Pb de dates!

ah oui! d'accord!! 😱
je suis supere reveillée ce matin ... donc en effet tu as bien fait! Merci

sinon j'ai testé, ça marche bien
Merci 🙂

Maintenant faut que je vois pour ma selection avec le filtre car ca n'a pas l'air de marcher par contre ...
🙄