Code VBA pour la navigation de transition dans Excel - excel, vba, excel-vba, hyperlien

Nous utilisons la touche de navigation de transition(options, advanced) dans Excel pour vous assurer que lorsque vous cliquez sur un lien hypertexte, cette cellule sera "en haut de la feuille". Cependant, cette option n'est pas spécifique au document et chaque utilisateur doit cliquer sur la "touche de navigation de transition" pour que cela fonctionne.

Je suis très nouveau sur vba et je n’ai toujours pas trouvé le moyen de le rendre spécifique au document. J’ai par exemple essayé:

If Application.TransitionNavigKeys Then
keyState = "On"
Else
keyState = "Off"
End If

mais ça ne marche pas.

Je serais très reconnaissant si quelqu'un a des idées.

Réponses:

Avez-vous vraiment besoin de la touche de navigation de transition? Si vous placez ce code dans le module de code du classeur; lorsqu’une utilisation clique sur un hyperlien, l’application défilera jusqu’à ce que ActiveCell se trouve dans le coin supérieur gauche.

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Application.Goto ActiveCell, True

End Sub