Allez automatiquement sur une date d'un calendrier

LPandre

XLDnaute Impliqué
Bonjour, je souhaite que lorsque l'utilisateur va sur l'onglet "calendrier", la cellule active soit celle qui contient la date du jour. Quel code macro pour arriver à faire ça ?

Par avance merci.

Fichier de mon calendrier ci joint.
 

Pièces jointes

  • Planning_testLG.zip
    9.3 KB · Affichages: 80

Nairolf

XLDnaute Accro
Re : Allez automatiquement sur une date d'un calendrier

Salut,

Essaye avec le code suivant intégré dans le code de la feuille 'calendrier'.
Code:
Private Sub Worksheet_Activate()
On Error Resume Next
    Set a = Worksheets("calendrier").Range("A1:AV32").Find(Date)
a.Select
End Sub
 

MJ13

XLDnaute Barbatruc
Re : Allez automatiquement sur une date d'un calendrier

Bonjour à tous

Vous pouvez tester avec ce code à placer dans Thisworkbook.

Code:
Private Sub Workbook_Open()
'Dim DAT As Date
'DAT = Date
Workbooks(ThisWorkbook.Name).Sheets("Calendrier").Select
Workbooks(ThisWorkbook.Name).Sheets("Calendrier").Cells.Find(Date).Select
End Sub
 

Si...

XLDnaute Barbatruc
Re : Allez automatiquement sur une date d'un calendrier

salut

à tester
Code:
Private Sub Workbook_Open()
  'Feuil1 contient le calendrier de la Bonne Année en cours
  Application.Goto Feuil1.Cells.Find(Date)(1, 3) 
  'seulement pour voir
  ActiveCell.Interior.ColorIndex = 8 
End Sub
 

Discussions similaires