Macro Excel et problème de dates

Hello, je suis novice dans les macros. Afin d'automatiser un rapport, j'ai crée une macro mais la partie filtrage des dates ne fonctionne pas. La voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim DateToday As Date Dim DateDebut As String Dim DateFin As String   DateToday = Date DateDebut = Format(DateToday - 7, "d.m.yyyy") DateFin = Format(DateToday - 1, "d.m.yyyy")   Cells.Select Selection.AutoFilter ActiveSheet.Range("$A$1:$AS$104194").AutoFilter Field:=25, _ Criteria1:=">=" & DateDebut, Operator:=xlAnd, Criteria2:="<=" & DateFin

---

Le filtre ne me retourne aucune entrée alors que la colonne 25 possède bien des entrées inclus dans ce range. Le format de la cellule est Date.
Une idée sur l'erreur que j'ai commise ?

Merci

Hello,

je sais, c'est très konkon, mais il faut mettre les dates sous la forme m/d/aaaa même si vos date sont au format d.m.aaaa. Regardez dans la barre de formule, une date utilise un / comme séparateur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim DateToday As Date Dim DateDebut As String Dim DateFin As String   DateToday = Date DateDebut = Format(DateToday - 7, "m/d/yyyy") DateFin = Format(DateToday - 1, "m/d/yyyy")   Cells.Select Selection.AutoFilter ActiveSheet.Range("$A$1:$AS$104194").AutoFilter Field:=25, _ Criteria1:=">=" & DateDebut, Operator:=xlAnd, Criteria2:="<=" & DateFin

---

Ceci dit, la sélection de l'intégralité de la feuille ou de la colonne n'est pas vraiment recommandé

Merci mais j'avais déjà essayé, cela ne remonte rien.

Quand je debugge et que je regarde le filtrage automatique qu'il veut appliquer cela donne :
Pièce jointe 663736, donc je comprends que cela ne fonctionne pas.
Pour que cela fonctionne il faudrait qu'il applique :
Pièce jointe 663738
Soit DateDebut = Format(DateToday - 7, "m/d/yyyy") et DateFin = Format(DateToday - 1, "m/d/yyyy") ?

D'ailleurs, quand ce sont ces derniers paramètres qui sont saisis dans le filtrage custom et que je valide, cela fonctionne. Mais la macro le veut pas l'exécuter par elle-meme :weird:

Est-ce que j'ai raté quelque chose ?

Salut, si ce sont de vraies dates, pourquoi les déclarer en "String" ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim DateToday As Date Dim DateDebut As Date Dim DateFin As Date   DateToday = Date DateDebut = DateToday - 7 ' DateFin = DateToday - 1   Cells.Select Selection.AutoFilter ActiveSheet.Range("$A$1:$AS$104194").AutoFilter Field:=25, _ Criteria1:=">=" & DateDebut, Operator:=xlAnd, Criteria2:="<=" & DateFin

---

Idem, je n'obtiens aucune ligne.

NB : vos pièces jointes ne sont pas visibles, si ce sont des images mettez les en image jointe, pas en fichier joint.

Chez moi ça fonctionne...
On peut avoir un extrait anonymisé de votre fichier ?

C'est très étrange, chez moi cela ne fonctionne pas. Voici une partie du fichier. Merci pour ton aide

Bonjour,

pour ma part, cela fonctionne également.

Peut-être convertir la date en son équivalent numérique ?

Code:

---

1 2 3 4 5 6

Dim DateDebut As Double Dim DateFin As Double   DateToday = Date DateDebut = CDbl(DateToday - 7) DateFin = CDbl(DateToday - 1)

---

Voici votre fichier avec la macro qui filtre sur la colonne B

Hello, pas de nouveautés chez moi... J'ai fait un screencast pour vous montrer mon problème avec le fichier de "Nain porte koi" : https://go.screenpal.com/watch/cTVrj9nfIDG

Bonjour,

as-tu essayé avec la méthode des dates converties en valeur numérique ?

C'est très surprenant 8O

Quelques remarques :
vous utilisez un Excel anglais mais vous mettez les dates en français
Vous utilisez un séparateur de date pas très commun, du moins en France
Du coup, pouvez vous vérifier le format de date et surtout ce qui est indiqué dans "Paramètres régionaux (emplacement) :"
Autre chose à voir, dans les paramètres de Windows, le format régional

Je joins votre fichier avec la macro de joe.levrai qui fonctionne aussi bien chez moi dans lequel j'ai modifié le format de date (jj.mm.aaa) pour correspondre au votre.

Cela fonctionne avec le nouveau format de date. Le format de date chez moi est dd.mm.yyy avec la locale French (Switzerland). Au pays du Gruyère, cela à du avoir une incidence du coup :-)
Par contre, pourriez-vous m'expliquer la forme "double" pour les variables ?

Merci encore pour m'avoir enlever cette grosse épine du pied.

Pour Excel, une date est un nombre de jour depuis le 1/1/1900. Aujourd'hui nous sommes le 45 679 jour depuis le 1/1/1900, un type "long" aurait suffit mais joe.levrai est généreux et à prévu que vous utiliseriez sa macro dans un futur très (très, très, très...) éloigné :ptdr:

Bonjour,

j'utilise le Double par réflexe, manipulant souvent des dates avec heures/minutes/secondes :aie: