Ouverture d'un classeur sur une cellule en fonction de la date du jour

[3idm]

Bonjour à tous ... le forum

Voici un problème que je rencontre, j'ai cherché dans les différente discusions, je trouve des choses, mais c'est trop difficile pour moi d'adapter à mon problème.
Il parrait pourtant plus simple que ceux que j'ai lu, mias bon....

Voici donc

J'ai un classeur nommé TEST et dans celui-ci une feuille que je nomme "PLANNING"
Dans la colonne A, les dates de l'année 2016

A1 = 1 Janvier 2016
A2 = 2 janvier 2016
A3 = 3 Janvier 2016 ......
Etc.........

Je souhaite qu'à l'ouverture du classeur, la cellule qui correspond à la date du jour soit sélectionnée et surtout visible à l'écran afin d'éviter d'actionner la mollette souris exemple,nous sommes le 12 juin 2016, je souhaite que la cellule contenant la date 12 juin 2016 soit active et visible.

Je vous remercie par avance de vos reflexions et de vos propositions si vous avez...

Merci

 

[Chris401]

Re : Ouverture d'un classeur sur une cellule en fonction de la date du jour

Bonsoir

Code à placer dans ThisWorkbook

Private Sub Workbook_Open()
Sheets("Planning").Select
Dim i As Integer
i = Application.WorksheetFunction.Match(CLng(Date), Range("A1:A366"), 0)
Range("A" & i).Activate
End Sub

Cordialement
Chris

 

[3idm]

Re : Ouverture d'un classeur sur une cellule en fonction de la date du jour

Bonjour Chris,

c'est exactement ce que je cherchais.
C'est parfait pour mon appli.

Merci beaucoup
Bonne journée à toi