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 ?