[Edit: Résolu]
C'est possible, tout simplement en créant une variable:
Et en appelant cette variable dans le Goto
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim MAVARIABLE As String MAVARIABLE = Sheets("Feuille").Range("A1").Value
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:
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 =LIEN_HYPERTEXTE("#équipes!"&ADRESSE(EQUIV(F2;équipes!C:C;0);2);F2)
Sans succès.
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
Je me suis alors tourner vers une macro de ce type:
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 Application.GoTo Reference:=ActiveSheet.Range("A1"), Scroll:=True
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 =ADRESSE(EQUIV(F2;équipes!C:C;0);2)
MERCI
Partager