Se positionner sur la date du jour

J

joss56

XLDnaute Accro

• 8 Mars 2008

• #2

Re : Se positionner sur la date du jour

tu ajoutes dans ta procédure WorkBook_Open()

range("c3")=date

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 8 Mars 2008

• #3

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.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 8 Mars 2008

• #4

Re : Se positionner sur la date du jour

Bonjour,
une alternative à la méthode Find :

Code:

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

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 8 Mars 2008

• #5

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.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 8 Mars 2008

• #6

Re : Se positionner sur la date du jour

Re-,

Code:

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")

Code:

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

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

 

Vote positif 0 Vote négatif