Signaler

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

Posez votre question zer4 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 2017 Dernière intervention - Dernière réponse le 7 févr. 2017 à 16:57 par 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.


Utile
+0
plus moins
Bonjour
une proposition pour aller à la date du jour par formules et lien hypertexte
zer4 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 2017 Dernière intervention - 7 févr. 2017 à 13:33
c'est bien gentil mais ce n'est exactement ce que je recherche
Répondre
Donnez votre avis
Utile
+0
plus moins
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 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 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.
Répondre
Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !