Bonjour à tous,
Je fais face à un problème de filtrage de données.
j'ai un feuille Excel avec des données de facturation. en colonne K j'ai une série de date qui correspond au dates d'encaissement des factures. Je cherche par filtrage d'extraire toutes les lignes qui correspondent à un mois.
Ma routine fonctionne parfaitement pour extraire les données des mois de janvier à juillet. ensuite, le filtrage ne fonctionne plus .
Mon code est le suivant:
Sub FiltrerTest()
Datecritere = "09/01/2021"
datecriterfin = "07/31/2021"
LastLigneListeFact = Worksheets("Liste_Factures").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("K5").Select
Selection.AutoFilter
ActiveSheet.Range("$A$4:$L" & LastLigneListeFact).AutoFilter Field:=11, Operator:= _
xlFilterValues, Criteria2:=Array(1, Datecritere)
'ActiveSheet.Range("$A$4:$L" & LastLigneListeFact).AutoFilter Field:=11, Operator:= _
xlAnd, Criteria1:=">=" & datecritere, Criteria2:="<=" & datecriterefin
---------------------------------------
Datecritere est le paramètre de date sous la forme demandée mm/dd/yyyy. Par exemple tel qu'il est cela représente le mois de septembre.
Datecriterefin est le paramètre que j'ai utilisé dans la formule en commentaire en testant entre deux dates.
J'ai un fichier testfiltrer.xlsm dont j'ai enlevé toutes données confidentielles et réduit le nombre de ligne ( fichier original fait 2000 lignes)
Je galère sur ce problème depuis des heures et un coup d'aide serait le bienvenu.
Merci par avance
Belle journée.
End Sub
Je fais face à un problème de filtrage de données.
j'ai un feuille Excel avec des données de facturation. en colonne K j'ai une série de date qui correspond au dates d'encaissement des factures. Je cherche par filtrage d'extraire toutes les lignes qui correspondent à un mois.
Ma routine fonctionne parfaitement pour extraire les données des mois de janvier à juillet. ensuite, le filtrage ne fonctionne plus .
Mon code est le suivant:
Sub FiltrerTest()
Datecritere = "09/01/2021"
datecriterfin = "07/31/2021"
LastLigneListeFact = Worksheets("Liste_Factures").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("K5").Select
Selection.AutoFilter
ActiveSheet.Range("$A$4:$L" & LastLigneListeFact).AutoFilter Field:=11, Operator:= _
xlFilterValues, Criteria2:=Array(1, Datecritere)
'ActiveSheet.Range("$A$4:$L" & LastLigneListeFact).AutoFilter Field:=11, Operator:= _
xlAnd, Criteria1:=">=" & datecritere, Criteria2:="<=" & datecriterefin
---------------------------------------
Datecritere est le paramètre de date sous la forme demandée mm/dd/yyyy. Par exemple tel qu'il est cela représente le mois de septembre.
Datecriterefin est le paramètre que j'ai utilisé dans la formule en commentaire en testant entre deux dates.
J'ai un fichier testfiltrer.xlsm dont j'ai enlevé toutes données confidentielles et réduit le nombre de ligne ( fichier original fait 2000 lignes)
Je galère sur ce problème depuis des heures et un coup d'aide serait le bienvenu.
Merci par avance
Belle journée.
End Sub