Se positionner sur la date du jour

[aubelix]

Bonjour à tout le forum.
Je reviens vers vous pour vous demander votre aide.
Je me suis inspiré d'une macro, mais elle ne fonctionne pas.
Le bur est de se positionner à l'ouverture du fichier, sur la date du jour.
Avec workbook open. Ci-joint un fichier exemple.
Par avance merci pour aide.

 

[joss56]

Re : Se positionner sur la date du jour

tu ajoutes dans ta procédure WorkBook_Open()

range("c3")=date

 

[aubelix]

Re : Se positionner sur la date du jour

Bonjour joss56
Merci pour ta réponse.
Je me suis peut-être ma exprimé...
Je ne veux pas changer la valeur de la cellule C3.
Mai je voudrai me positionner sur la date du jour.
Dans ce cas N4, demain N5 etc...

Cordialement.

 

[Cousinhub]

Re : Se positionner sur la date du jour

Bonjour,
une alternative à la méthode Find :

Private Sub Workbook_Open()
With Sheets("planning")
    .Cells(4, CDbl(Format(Date, "dd")) + 6).Select
End With
End Sub

 

[aubelix]

Re : Se positionner sur la date du jour

Bonjour BhBh.

Merci pour ta réponse et ton aide.
Cela fonctionne bien.
Pourriais STP me commenter la ligne : pourquoi +6 ?

Merci à tous.

 

[Cousinhub]

Re : Se positionner sur la date du jour

Re-,

CDbl(Format(Date, "dd"))

te renvoie la date du jour sous format nombre (soit 8 pour aujoudhui)

le + 6 car tu commences ton tableau en colonne G, soit la 7 ème colonne

donc 8 + 6 te donne la 14 ème colonne (soit colonne "N")

Cells(4, CDbl(Format(Date, "dd")) + 6)

te donne donc Cells(4, 14) soit Range("N4")....