Faire clignoter une cellule, qui est renvoyée en cliquant su

Merci pour votre réponse rapide et le fichier joint

Bonjour,

J'ai créé un lien hypertexte qui envoie le curseur d'une cellule vers une autre cellule destinataire quand on clique dessus.

Ce que je voudrais, c'est que la cellule de destination "apparraisse" clairement, soit très visible, pour que l'utilisateur voie tout de suite vers quelle cellule il est dirigé. Je pensais donc faire clignoter la cellule de destination, ou quelle apparraisse colorée ... puis redevienne normale.

C'est juste pour que le destinataire voie très facilement vers quelle cellule il est dirigé, que ce soit visuel, sans chercher la cellule parmi toutes celles du tableau.

J'ai une liste en fait dans un tableau et chaque cellule renvoie a une autre cellule plus bas dans la feuille. Il faudrait qu'a chaque fois qu'on clique sur une cellule de ce tableau et que ça renvoie a une cellule plus bas, la cellule de destination soit bien visible (clignote, se mette en fluorescent ... quelques secondes).

Merci encore si vous avez la réponse et pardon pour ne pas avoir été assez clair dans mon premier message.

Alexandre.

Bonjour,

A mettre dans le module de la feuille concernée et adapter les adresses des cellules devant clignoter dans la proc "Worksheet_SelectionChange" dans la ligne "Union" en les séparant par des virgules :

Private Declare Function GetTickCount Lib "Kernel32" () As Long

Sub Minuterie(Milliseconde As Long)

    Dim Arret As Long

    Arret = GetTickCount() + Milliseconde

    Do While GetTickCount() < Arret

        DoEvents

    Loop

End Sub

Sub Clignote(Cel As Range)

Dim I As Integer

Do Until I = 5

    Cel.Interior.ColorIndex = 3
    Minuterie 500

    Cel.Interior.ColorIndex = 0
    Minuterie 500

    I = I + 1

Loop

'remets à automatique une fois fini
Cel.Interior.ColorIndex = 0

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'quand la cellule est sélectionnée (ici A1 et B3, à adapter)
    'elle clignote pendant 5 secondes
    If Not Intersect(Target, Union([A1], [B3])) Is Nothing Then

            Clignote Target

    End If

End Sub

Hervé.