Pointage date du jour dans un calendrier

Bonjour,

Y a t'il une solution, lorsque j'ouvre mon calendrier fait sous Excel, que la date du jour apparaisse, soit en encadré ou en couleur, ou en surbrillance, ou etc..., afin de la repérer au 1er coup d'oeil.

Merci

Bonjour diddan35,

Certainement, mais il nous faudrait ton fichier pour pouvoir te répondre

A+

ok, le voici

Re,

Voici ton fichier avec un petit code dans ThisWorkbook

A+

Merci, çà fonctionne très bien, mais pour mon information personnelle, quel est l'astuce, est-ce une macro ? je n'ai pas trouvé le code dans thisworkbook.

@+,

Un petit problème quand même, c'est que çà efface toutes les couleurs des autres cases. Ne serait-il pas possible de ne pointer que sur la case du jour (ex: 10 Ma) ou tout simplement d'encadrer les cellules avec une bordure plus épaisse).

Merci.

Re,

Désolé, pour l'effacement des couleurs, mais je pense que le code est assez commenté

pour supprimer la bonne ligne

Private Sub Workbook_Open()
  Dim NumMois As Integer, NumJour As Integer
  ' Mémoriser le numéro du mois et du jour
  NumMois = Month(Now()): NumJour = Day(Now())
 ' Effacer les couleurs
  Rows("7:37").Interior.ColorIndex = xlNone ' ******* C'EST ICI *****
  ' Avec la position calculée du jour
  With Cells(6 + NumJour, (NumMois * 4) - 1)
    ' Sélectionner la cellule
    .Select
    ' Mettre une couleur verte
    .Interior.ColorIndex = 35
  End With
End Sub

A+

Oui, effectivement, j'ai fini par trouver le code et en supprimant la ligne, c'est tout bon.

Merci encore.