Me retrouver a la date du jour dans la bonne cellule Résolu/Fermé

Question

Bonjour, 
je travaille sur un planning et j'ai une longue liste d'outils ordonnée a la verticale donc elle descend très bas. et j'ai un soucis :
comment pourrais-je être apporté a la date du jour mais au niveau de HY70 mais sans être remonté à la cellule où se trouve la date du jour ? 
voici un fichier excel pour mieux expliquer mon problème:
http://www.cjoint.com/c/GBhknndElOw
Cordialement.
Configuration: Configuration: Windows / Chrome 55.0.2883.87

yclik · Answer

Bonjour
une proposition pour aller à la date du jour par formules et lien hypertexte

momo · Answer

Bonjour
peux être un truc comme ça

Option Explicit
Const codate = "17"

Sub DateA()
Dim Obj As Object, D As Date
Dim Lig, Col As Long
D = Date
Set Obj = Rows(codate).Find(D, , , xlWhole)
If Not Obj Is Nothing Then
   Obj.Select
   Lig = ActiveCell.Row + 70
   Col = ActiveCell.Column
' Cells(Lig, Col).Select
 Application.Goto Cells(Lig, Col), True
End If
End Sub

A+
Maurice

momo · Answer

Bonjour
il faut chercher un peux

Sub DateA()
Dim Obj As Object, D As Date
Dim Lig, Col As Long
D = Date
Lig = ActiveCell.Row
Set Obj = Rows(17).Find(D, , , xlWhole)
   If Not Obj Is Nothing Then
      Obj.Select
      Col = ActiveCell.Column
      Application.Goto Cells(Lig, Col), True
   End If
End Sub

A+
Maurice

Me retrouver a la date du jour dans la bonne cellule

3 réponses

Discussions similaires