VBA variable DATE

Bonjour,

J'essaye de filtrer la date. Si nous sommes lundi alors afficher les données du vendredi. Voici ma macro :

Sub OK()

Dim vendredi As Date
vendredi = Formula = "Today() - 3"

    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:=vendredi, Operator:=xlAnd

End Sub

Le problème c'est que quand je vais voir le filtre qui a été appliqué, c'est une heure (12:00 AM) au lieu du 28/09/2021.

Merci d'avance pour votre aide !

bonjour,

essaie ceci

vendredi = Today()-3

l'instruction

vendredi = Formula = "Today() - 3"

met dans la variable vendredi le résultat de la comparaison entre Formula (qui est vide) et la chaîne de caractères "Today() - 3", donc faux ou 0 et quand tu affiches zéro c'est le 0 janvier 1900 à 0 h 0 m 0s

Je n'ai pas compris ta réponse

re-bonjour,

désolé si ma réponse n'était pas claire

remplace ceci

vendredi = Formula = "Today() - 3"

par ceci dans ton code

vendredi = Today()-3

le reste de ma réponse essayait d'expliquer ce que cette instruction initiale fait et donne comme résultat.

Bonjour à tous,

c'est maintenant que ne n'est plus clair h2so4
Tu as inversé...

Remplacer vendredi = Formula = "Today() - 3" par :
vendredi = Today()-3
Je pense qu'il aurait compris mais bon...
eric

ouch ...

merci eriiic, j'ai corrigé

Bonjour,

Je viens seulement de consulter aujourd'hui. Merci beaucoup :)