Déclencher un macro avec un lien hypertexte à formule

Question

Bonjour,

Je monte un calendrier prévisionnel pour les congés de mon service. Il est évoluable et modifiable par l'équipe.

C'est un calendrier annuel et je voudrais que que les gens puissent se rendre facilement sur le mois qu'ils souhaitent modifier. Grâce à un lien hypertexte je suis arrivé à envoyer la cellule active vers la date du mois selectionnée. Cependant celle-ci ne se met pas en haut à gauche de l'écran.

Je sais qu'il existe un macro pour le faire. Je voudrais donc qu'elle se déclenche lorsque je clique sur le lien. Cependant la fonction hyperlink.follow n'est pas déclencher par ma formule =lien_hypertexte. D'où ma question: comment faire? Je ne suis fermer à aucune suggestion même la création d'un bouton.

La formule de mon lien en cellule A5:

=LIEN_HYPERTEXTE("#"&ADRESSE(6;EQUIV(A4;6:6;0));"ALLER AU MOIS")

La macro de recentrage:

Sub TopLeft()
Application.Goto ActiveCell, Scroll:=True
End Sub

La macro de follow:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$A$5" Then
        Call topleft.topleft
        End If

End Sub

Merci d'avance

Answer 1

J'ai "bêtement" pensé que ton lien va dans d'autres feuilles d'où ce code mais tu restes dans la même feuille, c'est bien ça ?

Answer 2

Ça ne fonctionne pas non plus...

Je pense que le probléme viens du fait que les dates sont elle aussi générer par des formules. Cela me permet d'avoir une automatisation du calendrier en fonction de l'année renseigner avec une colorantion des week end et des jours fériés.

Answer 3

Je te propose ce code (à adapter) pour qu'il ne ce "déclenche" que pour une liste de feuille

Answer 4

Non ça ne fonctionne pas mais je suis débutant en programmation donc je ne suis pas sûr d'avoir compris ce que tu me demandes de faire... désolé.

Jusqu'à présent je suis arrivé à rendre le recentrage de la cellule active automatiquement ce qui résolvait le problème. Seul hic, ça le faisait pour toute la feuille donc si on voulait modifier une case tout le tableau se déplaçait, rendant l'opération catastrophiquement complexe.

Donc soit je limite ce phénomène à ma ligne de date soit je le lie à l'activation du lien. Mais je n'ai pas trouvé la macro me rendant une des deux solutions possible.

Answer 5

Bonjour,

Tu pourrais tester l'activation de la feuille en utilisant

Private Sub Workbook_SheetActivate de Thisworkbook

ou

Private Sub Worksheet_Activate() de la feuille