Ouvrir un calendrier à la date du jour

[degap05]

Bonjour,

J'ai besoin de votre aide.
Je souhaiterais que la cellule de la date du jour soit sélectionnée à l'ouverture du calendrier joint.

En indiquant la date du jour en "A3", j'ai pensé utiliser la fonction "Find" pour la plage "B1:I104".

Mais je n'y suis pas parvenu. Peut-être y a-t-il plus simple en se servant de la date système ?

Merci d'avance.

 

[ROGER2327]

Re : Ouvrir un calendrier à la date du jour

Bonjour degap05

[B][COLOR="DarkSlateGray"]Private Sub Worksheet_Activate()
Dim d As Date, cal As Range, cel As Range
   d = Int(Now())
   Set cal = Range("C2:C104,E2:E104,G2:G104,I2:I104")
   For Each cel In cal.Cells
      If cel.Value = d Then cel.Offset(0, -1).Resize(1, 2).Select: Exit For
   Next cel
End Sub[/COLOR][/B]

dans le module de la feuille "2009" devrait faire l'affaire.
Si vous voulez mettre la procédure dans le module du classeur, attention à faire référence à la bonne feuille.​

ROGER2327
#2155

 

[degap05]

Re : Ouvrir un calendrier à la date du jour

Bonjour ROGER2327,

J'ai mis le code dans : Private Sub Workbook_Open()

Cela fonctionne parfaitement.

Merci beaucoup.