Griser case du jour quand clic sur lien

[mikael2235]

Griser case du jour quand clic sur lien [RESOLU]

Bonjour à tous,

Je vous explique mon projet.

J'ai donc dans ma colonne A en vertical des liens hypertextes, et dans ma ligne 1 en hoizontal, la date du jour.

Je voudrais faire une macro qui, quand on clique sur le lien (de la colonne A), il grise sur la même ligne la colonne correspondant à la date du jour.

Merci pour votre aide.

Mikael.


P.S. J'ai mis la pièce jointe en xls, parce que xlsx ne passe pas !

 

[job75]

Re : Griser case du jour quand clic sur lien

Bonjour mikael2235,

Si j'ai bien compris, cette macro dans le code de la feuille :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim col As Variant
With Target.Range.Offset(1 - Target.Range.Row, 1 - Target.Range.Column) 'coin en haut à gauche
  .Resize(65536, 256).Interior.ColorIndex = xlNone 'efface toute couleur (à voir...)
  col = Application.Match(CDbl(Date), .EntireRow, 0)
  If IsNumeric(col) Then .Offset(Target.Range.Row - 1, col - 1).Interior.ColorIndex = 15
End With
End Sub

Toute couleur est préalablement effacée. Voir si ça convient...

A+

A+

 

[mikael2235]

Re : Griser case du jour quand clic sur lien

Bonjour mikael2235,

[...]

Toute couleur est préalablement effacée. Voir si ça convient...

A+

Merci pour ce code, le principe est la, mais comme tu le dis il ne faut pas que ça efface toutes les cellules.
Il doit garder les couleurs dans les cellules.

Et après je rajouterai à la fin ActiveWorkbook.Save pour qu'il enregistre les données.

EDIT :

J'ai modifié un peu le code et rajouter ActiveWoorkbook.Save, et tout marche parfaitement.

Merci encore