Rapport de message :*
 

Re: changer l'aspect du pointeur de cellule

Titre du sujet : Re: changer l'aspect du pointeur de cellule
par myDearFriend! le 20/11/2012 22:45:02

Bonsoir ramarc,

Tu trouveras sur le net une bonne quantité de macros sensées permettre d'améliorer la visualisation de la cellule active...
Pour ma part,je n'ai jamais été franchement fan de ces tentatives plus ou moins fiables et alourdissant surtout inutilement les classeurs.

Cela dit, pour le fun , et pour participer moi aussi à la fête...

En pièce jointe une façon de voir la chose (toujours pas convainquant à mon avis !).

J'ai utilisé le code suivant dans le module de code de l'objet Thisworkbook et adapté à l'exemple que tu as décrit :

Option Explicit

'myDearFriend!  -  www.mdf-xlpages.com
Dim CibleAdresse As String

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    ActiveCell.Interior.ColorIndex = 3
    CibleAdresse = Target.SubAddress
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If CibleAdresse <> vbNullString Then
        Evaluate(CibleAdresse).Interior.ColorIndex = xlNone
        CibleAdresse = vbNullString
    End If
End Sub
 
En cliquant sur le lien en Feuil2, la cible en feuille 1 prend un fond Rouge. Ce fond disparait au prochain changement de sélection de l'utilisateur.

Cordialement,