Discussion :

[ce_li_ne]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nain porte koi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[ce_li_ne]

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

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

[Franc]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ce_li_ne]

Idem, je n'obtiens aucune ligne.

[Nain porte koi]

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 ?

[ce_li_ne]

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

[joe.levrai]

Bonjour,

pour ma part, cela fonctionne également.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim DateDebut As Double
    Dim DateFin As Double
 
    DateToday = Date
    DateDebut = CDbl(DateToday - 7)
    DateFin = CDbl(DateToday - 1)

[Nain porte koi]

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

[ce_li_ne]

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

[joe.levrai]

Bonjour,

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

[Nain porte koi]

C'est très surprenant

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.

[ce_li_ne]

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.

[Nain porte koi]

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é

[joe.levrai]

Bonjour,

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