Hello tonyparker09,

En supposant que ton lien hypertexte cible la cellule D3 de ta feuille Feuil2.
Dans le code VBA de cette feuille, tu peux mettre ce genre de macros :

Private Sub Worksheet_Activate()
  Me.Range("D3").Interior.ColorIndex = 3
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Me.Range("D3").Interior.ColorIndex = 0
End Sub

Dans l'explorateur de Projet VBA, tu fais un double clic sur le nom de la feuille concernée. Dans la lucarne de droite, tu colles les macros, en adaptant la référence de la cellule. C'est tout.

Re,

quand je clique sur mon lien ca m'amène a la deuxième feuille dans la case voulue

OK. C'est bien l'adresse de cette cellule qu'il faut adapter dans les 2 macros (donc 2 endroits).
Dans la première macro, on indique la couleur que doit prendre la cellule quand on arrive sur la feuille,
dans la seconde, la couleur que doit reprendre la cellule ensuite.

Pour indiquer la couleur, plusieurs façons :
1) Utiliser l'indice de la couleur ColorIndex. Les valeurs ? Rien=0, Noir=1, Rouge=3, Bleu=5 etc. Pour connaître la valeur, un moyen simple est de lancer l'enregistreur de macro, d'activer une couleur, de stopper l'enregistrement, et de regarder le code généré.

2) Utiliser non plus ColorIndex, mais Color tout court. VBA connaît un certain nombre de constantes de couleurs qu'on peut utiliser, par exemple :
Range("A1").Interior.Color = vbBlue
(vbBlue=bleu, vbRed=rouge, vbBlack=noir, etc...)

3) Utiliser la fonction RGB (Red, Green, Blue) avec laquelle on indique les intensités des composantes de couleur Rouge, Vert, Bleu.
Range("A1").Interior.Color = RGB(0, 0, 255) donne aussi du bleu.

Vérifie tout ça, et adapte à ton cas...

Salut,

OK, je comprends mieux. Je pensais que chacun de tes liens pointaient sur des feuilles différentes, et non pas sur des diverses cellules d'une même feuille.

Je peux te proposer quelque chose, et si quelqu'un a mieux je suis preneur.

Dans mon test, j'ai :
- dans Feuil1 : les liens hypertextes
- dans Feuil2 : les cellules sur lesquelles pointent ces liens (chacune d'une couleur différente)
J'utilise une feuille Feuil3 pour y stocker :
- le numéro de ligne d'une cellule (en B1)
- son numéro de colonne (en B2)
- sa couleur (en B3)

Dans le code VBA de la feuille qui contient les liens, j'ai :

Private Sub Worksheet_Activate()
  Sheets("Feuil3").Cells(1, 2).Value = ActiveCell.Row
  Sheets("Feuil3").Cells(2, 2).Value = ActiveCell.Column
  Sheets("Feuil3").Cells(3, 2).Value = ActiveCell.Interior.ColorIndex
  ActiveCell.Interior.ColorIndex = 3
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells(Sheets("Feuil3").Cells(1, 2).Value, Sheets("Feuil3").Cells(2, 2).Value).Interior.ColorIndex = Sheets("Feuil3").Cells(3, 2).Value
End Sub