Lien Hypertexte

[apdf]

Bonjour,

Est il possible que lorsque je click sur un mot dans une cellule qui a un lien sur une autre cellule de la même feuille que le mot de cette cellule se colore en rouge.

D'avance merci

 

[tototiti2008]

Re : Lien Hypertexte

Bonjour apdf,

à tester dans le code de la feuille

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Range(Target.SubAddress).Font.Color = RGB(255, 0, 0)
End Sub

 

[apdf]

Re : Lien Hypertexte

Bonjour tototiti,

Merci beaucoup c'est presque ma recherche, est-il possible que le mot revienne a la couleur d'origine.
Ex: le mot est bleu, je click il devient rouge, deux ou trois seconde plus tard il redevienne bleu !

 

[Numidia]

Re : Lien Hypertexte

Bonjour avec un simple clic sur la cellule colorée en rouge ele texte devient bleu
Private Sub Worksheet_Change(ByVal Target As Range)
Selection.Font.Color = RGB(0, 0, 250)
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Range(Target.SubAddress).Font.Color = RGB(255, 0, 0)
End Sub