Me retrouver a la date du jour dans la bonne cellule

Résolu/Fermé

zer4 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017 - Modifié par zer4 le 7/02/2017 à 11:13
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.

A voir également:

Me retrouver a la date du jour dans la bonne cellule
Aller à la ligne dans une cellule excel - Guide
Mettre à jour ses pilotes - Guide
Retrouver message supprimé whatsapp - Guide
Mise a jour airpods - Guide
Mise à jour x96 mini ✓ - Forum Accessoires & objets connectés

3 réponses

Réponse 1 / 3

yclik Messages postés 3589 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 18 avril 2024 1 479
7 févr. 2017 à 12:23

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

zer4 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017
7 févr. 2017 à 13:33

c'est bien gentil mais ce n'est exactement ce que je recherche

Réponse 2 / 3

momo
7 févr. 2017 à 13:47

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 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017
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éponse 3 / 3

momo
7 févr. 2017 à 16:57

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Pix

Problème Whatsapp - "La date est incorrecte"

formule de calcule

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters