Bonjour,
 
Je souhaite effectuer un FILTRE d'une colonne Excel via un code VB
Le but est filtrer du lundi au dimanche de la semaine en cours
 
Ce code fonctionne mais pour les date qui commence par 01 à 09, le jour s'inverse avec le mois (c'est à dire, en format anglais)
 
Est il possible formater la date en jj/mm/aaa  ou de renvoyer la date en forme de texte?
 
 
Voici le code :
 
Pour info Range(D2) = numéro de jour : 1 = lundi
 
 

 
 
Voila....  

Je ne connais pas bien les focntionnalités Excel, aussi sais-tu ce que le paramètre Criteria1: attend comme type de données ?
 
Sinon :
Format(dateLundi, "dd/mm/yyyy" ) renvoie un Variant
Format$(dateLundi, "dd/mm/yyyy" ) renvoie un String
Le format "dd/mm/yyyy" (en minuscules) est un format de date française qui fonctionne.

Je viens d'essayer en stringant le Format mais ça ne marche pas.
 
 
Le paramètre criteria doit renvoyer une date sous forme jj/mm/aaaa (format texte ou non)
 
 
J'arrive a renvoyer une date en mm/jj/aaaa mais pas en jj/mm/aaaa
 
 
Le probleme se rencontre quand jj <10  ou mm<10
Le jour et le mois s'inversent
 

Après quelques tests, voici mes remarques :
 
Le paramètre Criteria1 attend une date au format ANGLAIS
Quand tu lui passes une date au format français, il essaie de la convertir : 01/02/2005 ne lui pose pas de problème mais pour lui cela veut dire 2 janvier !
Si tu lui passes 17/03/2005, il transforme cela en 03/17/2005 automatiquement car le mois ne pouvant être égal à 17, aucune ambiguité n'est possible.
Du coup quand il te rend des résultats, il inverse les jours et mois dans le contexte du premier exemple.
 
Voici la syntaxe à utiliser et qui fonctionne chez moi :

Il faut donc bien lui passer une date en format anglais comme paramètre, et aussi utiliser la fonction de conversion CDate() si tes cellules Excel sont formatées comme champ de type date.

Effectivement le format date est résolu mais un nouveau probleme apparait!
 
Maintenant pour les dates supérieures à 09, ça bug !!!

Une « date supérieure à 09 » ça me parle pas.
Le numéro de jour, de mois, la décennie, autre ?
 
« Ça bug » veut dire quoi ? Une erreur apparaît (n°, description) ? Ça te donne un autre résultat que celui attendu ?

En fait maintenant le tri fonctionne pour les jj  <  10
 
 
Mais pour les jj > 09, le filtre ne marche plus
 
Effectivement ce n'est pas un bug ça, j'avoue j'ai fait une erreur dans mon code!!!      
 
 
 
J'ai plusieurs idées mais je n'arrive pas savoir le format que je dois choisir
  - envoyer des données dans Criteria sous forme de texte ou de date
  - formater les cellules Excel en texte ou en date
 
Là je suis au bout de mes capacités, j'y ai passé une journée !!!!!!!!!!!!
 
"In VB Veritas"

Dans mon test, la colonne est de type date mais son format est français (17/01/2205).
L'affichage est donc conforme à tes attentes, MAIS il n'empêche qu'il faut passer en paramètre un format anglais.
 
Je ne vois pas ce qui te gêne. Déclare ta colonne au format date et utilise ma syntaxe.

Je regarde ça, je vais raser mon code et repartir du début....
 
Je te donne mon code dès que je l'ai fini... Si j'y arrive

En fait il manque un paramètre dans ton code, c'est pas un filtre par date que je cherche a faire mais par semaine.
 
C'est a dire de Critetia1 à Criteria2  (compris entre 2 dates)
 
Et dans ce cas la je n'arrive pas a le faire marcher le filtre.
 
Voici mon code :
 

Comme ça, ça a l'air de bien fonctionner

OK, merci... Entre temps j'ai créé une nouvelle colonne avec mon numéro de semaine! Solution de facilité...