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 ?
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
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
Re : Allez automatiquement sur une date d'un calendrier
Re
Ah, mais j'ai remarqué qu'il y a de nombreux codes qui ne fonctionnent pas toujours avec la recherche de date. Il faut faire des tests pour trouver le bon .