Me retrouver a la date du jour dans la bonne cellule [Résolu]

zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 7 févr. 2017 à 11:05 - Dernière réponse :  momo
- 7 févr. 2017 à 16:57
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.


Afficher la suite 

5 réponses

Répondre au sujet
yclik 1185 Messages postés vendredi 25 juillet 2014Date d'inscription 15 décembre 2017 Dernière intervention - 7 févr. 2017 à 12:23
0
Utile
1
Bonjour
une proposition pour aller à la date du jour par formules et lien hypertexte
zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 7 févr. 2017 à 13:33
c'est bien gentil mais ce n'est exactement ce que je recherche
Commenter la réponse de yclik
0
Utile
1
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
zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 7 févr. 2017 à 14:24
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.
Commenter la réponse de momo
0
Utile
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
Commenter la réponse de momo