XL 2019 Curseur sur date jour ou date choisie

vgendron

XLDnaute Barbatruc

• 11 Juin 2024

• #2

bonjour


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

 

Pièces jointes

• Curseur sur jour.xlsm

  17.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Solution

D

DST

XLDnaute Occasionnel

• 11 Juin 2024

• #3

Merci et bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Juin 2024

• #4

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+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 11 Juin 2024

• #5

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

 

Vote positif 0 Vote négatif

D

DST

XLDnaute Occasionnel

• 11 Juin 2024

• #6

Merci pour les autres propositions
Bonne fin de journée

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 12 Juin 2024

• #7

Bonjour à tous,

Tu peux également mettre un lien hypertexte

JHA

 

Pièces jointes

• Curseur sur jour.xlsx

  11.1 KB · Affichages: 8

Vote positif 0 Vote négatif

D

DST

XLDnaute Occasionnel

• 15 Juin 2024

• #8

Bonjour,
Merci pour cette nouvelle proposition
Bonne journée

 

Vote positif 0 Vote négatif