Allez automatiquement sur une date d'un calendrier

[LPandre]

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.

 

[Nairolf]

Re : Allez automatiquement sur une date d'un calendrier

Salut,

Essaye avec le code suivant intégré dans le code de la feuille 'calendrier'.

Private Sub Worksheet_Activate()
On Error Resume Next
    Set a = Worksheets("calendrier").Range("A1:AV32").Find(Date)
a.Select
End Sub

 

[LPandre]

Re : Allez automatiquement sur une date d'un calendrier

Merci, j'ai le message suivant qui s'affiche :

Variable objet ou variable de bloc whith non définie.

J'ai ajouté Dim a as range, mais ça ne change rien.

 

[LPandre]

Re : Allez automatiquement sur une date d'un calendrier

Up pour ce problème de message d'erreur.

@+

 

[grisan29]

Re : Allez automatiquement sur une date d'un calendrier

bonjour LPandre

essai avec

dim a as worksheet

Pascal

 

[Nairolf]

Re : Allez automatiquement sur une date d'un calendrier

Salut,

a est une cellule, donc normalement : Dim a As Range

 

[gilbert_RGI]

Re : Allez automatiquement sur une date d'un calendrier

Up pour ce problème de message d'erreur.

@+

Bonjour,

comment et où a été placé le code car pour moi pas de message d'erreur

 

[LPandre]

Re : Allez automatiquement sur une date d'un calendrier

de retour de vacances :

@gilbert_RGI : impec ! sous 2010, mais ça marche pas sous 2003 . Bizarre.

 

[gilbert_RGI]

Re : Allez automatiquement sur une date d'un calendrier

je n'ai plus la version 2003 pour tester désolé

 

[MJ13]

Re : Allez automatiquement sur une date d'un calendrier

Bonjour à tous

Vous pouvez tester avec ce code à placer dans Thisworkbook.

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...]

Re : Allez automatiquement sur une date d'un calendrier

salut

à tester

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

 

[LPandre]

Re : Allez automatiquement sur une date d'un calendrier

@ mj13 et si...

Bon bin quand ça veut pas ! C'est pas grave, je le passe en 2010 où ça tourne.

Merci à tous. On arrête là pour le test en 2003

 

[MJ13]

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 🙂.