Discussion :

[SixteenVBA]

Bonjour à tous, je sèche sur l'écriture de mon VBA... J'aimerai à partir du code, filtrer les dates de + de deux mois par rapport à la date du jour.

Je m'explique, j'ai une extraction de commandes avec donc des dates. Ces dates sont dans la colonne O. Je fais une extraction tous les jours. Je souhaite donc que dans ma macro, un filtre s'effectue sur la colonne O, pour ne garder que les lignes où la date est au moins vieille de + de deux mois par rapport à ma date du jour.
Je souhaite absolument le faire par VBA.

Pouvez-vous m'aider?
Merci

[joe.levrai]

Bonjour,

la fonction date renvoie la date du jour
la fonction dateadd() permet d'effectuer des additions/soustractions de dates

Il te suffit donc de retrancher deux mois à la fonction date, pour obtenir ta borne, à appliquer en Criteria1 de ton filtre automatique : utilise l'enregistreur de macro en réalisant manuellement ton filtre automatique, tu auras la syntaxe à laquelle ajouter ta borne de date

petit cadeau

Code :

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

1
2
3
Sub toto()
    MsgBox DateAdd("m", -2, Date)
End Sub

EDIT : puisque tes commandes sont issues d'une extraction, il serait encore plus intéressant de directement indiquer ce critère dans ta requête ! On traite un problème le plus en amont possible

[SixteenVBA]

Merci pour ta réponse !! Je vais la tester !!
Et non je dois extraire toutes les commandes !! Je crée ensuite des feuilles suivant des critères, comme celui-ci !! Mais je dois avoir aussi toutes les autres !!

Merci à toi

[SixteenVBA]

J'ai ainsi renseigné le code suivant

Code :

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

ActiveSheet.Range("$A$1:$S$3814").AutoFilter Field:=15, Criteria1:="<=" & dater, Operator:=xlAnd

Quand je lance ma macro, je n'ai aucune ligne qui reste à l'affiche sur mon fichier Excel. Or, quand je vais vérifier la date dans mon filtre personnalité sur la cellule O1, il suffit que je fasse OK direct, pour que finalement ça marche. En gros ça me met bien le bon filtre sur la colonne, mais il faut que j'aille dans le filtre et que je le valide à la main pour qu'il m'affiche les données.

Sauriez-vous me dire pourquoi et comment contourner ça?

Merci

[joe.levrai]

Bonjour,

quand tu utilises une date dans un Autofilter, il faut passer par sa valeur telle qu'elle est stockée par excel, c'est à dire son Numéro de Série

on l'obtient simplement en convertissant la date au format Long, via la fonction de conversion Clng()

exemple

Code :

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

1
2
3
4
5
6
Sub toto()
    With ActiveSheet.Range("A1").CurrentRegion
        .AutoFilter
        .AutoFilter 15, "<=" & CLng(DateAdd("m", -2, Date))
    End With
End Sub

Voici un excellent tutoriel pour bien comprendre le fonctionnement des Dates entre Excel et VBA
http://didier-gonard.developpez.com/...-excel-et-vba/

[SixteenVBA]

Super ça fonctionne !

Merci de votre aide