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.
 

Fichiers joints

Nairolf

XLDnaute Impliqué
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
 

LPandre

XLDnaute Impliqué
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.
 

grisan29

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

bonjour LPandre

essai avec
Code:
dim a as worksheet
Pascal
 

Nairolf

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

Salut,

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

LPandre

XLDnaute Impliqué
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.
 
Dernière édition:

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
 

LPandre

XLDnaute Impliqué
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

XLDnaute Barbatruc
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 :).
 

Discussions similaires


Haut Bas