[Edit: Résolu]

C'est possible, tout simplement en créant une variable:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Dim MAVARIABLE As String
MAVARIABLE = Sheets("Feuille").Range("A1").Value
Et en appelant cette variable dans le Goto

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Application.Goto Reference:=Range(Cible), Scroll:=True 'ne pas omettre le Scroll:=True pour avoir la cellule cible située en haut de la page

Bonjour,

Est-il possible que la cellule/plage cible d'un lien hypertexte se retrouve en haut de l'écran systématiquement?

Voici la formule type de mes liens hypertextes:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
=LIEN_HYPERTEXTE("#équipes!"&ADRESSE(EQUIV(F2;équipes!C:C;0);2);F2)
J'ai vu une première solution qui consistait à inscrire ce code dans la feuille:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.Goto Reference: ActiveCell , Scroll:=True
End Sub
Sans succès.

Je me suis alors tourner vers une macro de ce type:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Application.GoTo Reference:=ActiveSheet.Range("A1"), Scroll:=True
Ca fonctionne, sauf que je voudrais que le "A1" ici soit remplacé par la valeur renvoyée par ma formule:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
=ADRESSE(EQUIV(F2;équipes!C:C;0);2)

MERCI