XL 2019 Curseur sur date jour ou date choisie

DST

XLDnaute Occasionnel
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
 

Pièces jointes

  • Curseur sur jour.xlsx
    9.6 KB · Affichages: 5

job75

XLDnaute Barbatruc
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 :
VB:
Sub Sélecttionne()
On Error Resume Next
Range("A:A").Find(Range("H1"), , xlFormulas, xlWhole).Select
End Sub
A+
 

Cousinhub

XLDnaute Barbatruc
Bonjour,
Perso, pour les dates, je les travaille en Long, puis Equiv...
VB:
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
 

Discussions similaires

Réponses
8
Affichages
316

Statistiques des forums

Discussions
313 257
Messages
2 096 608
Membres
106 679
dernier inscrit
emmanuel.bougnon@knowllen