Allez automatiquement sur une date d'un calendrier

N

Nairolf

XLDnaute Accro

• 17 Décembre 2015

• #2

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

 

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 17 Décembre 2015

• #3

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.

 

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 23 Décembre 2015

• #4

Re : Allez automatiquement sur une date d'un calendrier

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

@+

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 23 Décembre 2015

• #5

Re : Allez automatiquement sur une date d'un calendrier

bonjour LPandre

essai avec

Code:

dim a as worksheet

Pascal

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 24 Décembre 2015

• #6

Re : Allez automatiquement sur une date d'un calendrier

Salut,

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 24 Décembre 2015

• #7

Re : Allez automatiquement sur une date d'un calendrier

LPandre à dit:

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

@+

Cliquez pour agrandir...

Bonjour,

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

 

Pièces jointes

• directement à la date.xlsm

  14.5 KB · Affichages: 81

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 4 Janvier 2016

• #8

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: 4 Janvier 2016

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Janvier 2016

• #9

Re : Allez automatiquement sur une date d'un calendrier

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 4 Janvier 2016

• #10

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 4 Janvier 2016

• #11

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

 

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 8 Janvier 2016

• #12

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 8 Janvier 2016

• #13

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

 

Vote positif 0 Vote négatif