XL 2019 Curseur sur date jour ou date choisie

[DST]

Bonjour le forum,
je souhaiterai que le curseur vienne automatiquement sur la date du jour (affichage direct sur l'écran) et/ou une date choisie.
Je ne suis pas très macro si une autre solution existe, je suis preneur
Je vous joins un fichier
Merci de votre aide précieuse

 

[vgendron]

bonjour


voir pj
saisir la date en H1, et cliquer sur le bouton

 

[DST]

Merci et bonne journée

 

[job75]

Bonjour DST, vgendron,

Attention, si l'on utilise la commande Rechercher avec Regarder dans : Valeurs ça n'ira pas.

Précisez plutôt la recherche comme ceci :

Sub Sélecttionne()
On Error Resume Next
Range("A:A").Find(Range("H1"), , xlFormulas, xlWhole).Select
End Sub

A+

 

[Cousinhub]

Bonjour,
Perso, pour les dates, je les travaille en Long, puis Equiv...

Sub Go_To_Date()
Dim LaDate
LaDate = Application.Match(CLng(Range("H1")), Columns(1), 0)
If Not IsError(LaDate) Then Application.Goto Cells(LaDate, 1), True 'True pour Scroller, mettre False sinon
End Sub

Bonne journée

 

[DST]

Merci pour les autres propositions
Bonne fin de journée

 

[JHA]

Bonjour à tous,

Tu peux également mettre un lien hypertexte

JHA

 

[DST]

Bonjour,
Merci pour cette nouvelle proposition
Bonne journée