Me retrouver a la date du jour dans la bonne cellule
Résolu
zer4
Messages postés
56
Statut
Membre
-
momo -
momo -
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.
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.
3 réponses
-
Bonjour
une proposition pour aller à la date du jour par formules et lien hypertexte -
Bonjour
peux être un truc comme çaOption 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-
c'est ça mais en faite HY70 etait un exemple je pourrais tout aussi bien prendre HY 65 ou 102 ... ect
ce que je souhaiterais, c'est quand je suis sur la ligne où se trouve un outil et que je clique sur aujourd'hui, il se met dans la cellule où la date et l'outil se croisent.
Exemple :
je suis sur HY65, je clique sur le bouton Date Aujourd'hui et la cellule AM82 se sélectionne.
Cordialement.
-
-
Bonjour
il faut chercher un peuxSub 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
