Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Céline67
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

Céline67

Guest
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
 
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
 
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 ...
🙄
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
Réponses
3
Affichages
1 K
Marie Marie
M
M
  • Question Question
Réponses
3
Affichages
1 K
mokhtar_Alpha
M
V
  • Question Question
Réponses
6
Affichages
3 K
Vinceairline
V
L
Réponses
2
Affichages
1 K
Legendre
L
K
Réponses
6
Affichages
3 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…