Comment réaliser un "Rollover" ou "Survol de la souris" dans Excel?

Dans ce message nous allons voir une méthode qui va simuler un effet de survol aussi appellée "rollover" ou "mouseover".
Ce message a été inspiré par le poste de Chandoo sur les liens hypertexte dans Excel.
En M14, nous avons entré la formule suivante :
=HYPERLINK(OnMouseOver(ROW(),COLUMN()),"Survolez-moi")

La fonction HYPERLINK ( lien hypertexte ) appelle la macro "OnMouseOver" dès que le curseur de la souris passe sur la cellule M14. Cette macro affiche alors son message en E8.

Vba

Sélectionnez

Public Function OnMouseOver(R, C)
 Sheet1.Range("E8").Value = "La souris est passée sur ligne :" & R & " colonne :" & C
End Function

Comme vous pouvez le remarquer la macro fonctionne mais la cellule M14 affiche l'erreur #VALUE! cela se corrige aisément en encapsulant la commande dans IFERROR

En M15 nous avons entré la formule suivante :
=IFERROR(HYPERLINK(OnMouseOver(ROW(),COLUMN()),"Survolez-moi"),"Survolez-moi")

Vous aimez cet article?

Je vous invite à le partager dans vos différents réseaux sociaux et également à laisser un commentaire ci-dessous.