Selectionner une cellule en fonction de la date d'aujourd'hu

Bonjour, j'aimerais créer une macro qui me permettrait de sélectionner la cellule qui correspond à la date d'aujourd'hui.

J'ai dan mon tableau une 1ere colonne A avec des dates ,

J'ai tenter des choses avec la formule

Sub DateJour()

Range("a400") = "=MATCH(TODAY(),A:A)"

Cells(Range("a400"), "A").Activate

End Sub

mais il me place en A400 une date "samedi 0 janvier 1900"

si quelqu'un peut m aider

merci par avance

Salut,

Pour reprendre ton idée :

Sub DateJour()
Dim i As Integer
i = Application.WorksheetFunction.Match(CLng(Date), Range("A:A"), 0)
Range("A" & i).Activate
End Sub

Cordialement.

Génial cela fonctionne et merci pour ta rapidité!

j'ai juste un petit souci ... si la date d'aujourd'hui n'est pas présente dans mon tableau la commande bugg

y'aurait il un moyen de contourner cela en affichant par exemple la date la plus proche d'aujourd'hui... ou en affichant la cellule A4 par défaut....

UN immense merci déjà!

Voici déjà une manière d'atteindre la cellule A4

Sub DateJour()
Dim i As Integer
On Error Resume Next
i = Application.WorksheetFunction.Match(CLng(Date), Range("A:A"), 0)
If i = 0 Then i = 4
Range("A" & i).Activate
End Sub

Pour rechercher la date la plus proche, il faudrait avoir un peu plus d'information et si possible ton fichier. Une question qui me vient à l'esprit par exemple : si il n'y a pas la date du jour, peut-il y avoir des dates ultérieures plus proches de la date du jour que les dates postérieures présentes ?

A te relire.

Le résultat est exactement celui que je voulais! en fait si la date n’apparaît pas l'affichage de la cellule A4 me convient parfaitement....

un immense merci!!