Lancer une macro via un lien hypertexte ?

Bonjour Forum,

Une idée saugrenue, qui me rendrait beaucoup de services : est-il possible de faire en sorte qu'un lien hypertexte lance une macro ?

Je m'explique : j'aimerais qu'en cliquant sur une cellule contenant un lien, on lance une macro prédéfinie.

J'espère avoir été clair, et j'espère que c'est possible !

Merci d'avance à tous les contributeurs.

Bonsoir,

un exemple...

1'691macro-hyperlink.zip (11.14 Ko)

Merci pour ta réponse, ça marche parfaitement !!!

Comment tu fais ? Et comment je peux faire pour attribuer une autre macro ?

Cette macro peut-elle être dans un module ?

Merci.

C'est une macro évènementielle... l'évènement est déclenché par le clic sur le lien.

Clique droit sur l'onglet de la Feuil1

Visualiser le code

Supprime le msgbox et appelle ta macro à la place

Si tu veux que cela soit actif pour tout ton classeur, sélectionne le module ThisWorkbook à partir du premier menu déroulant, sélectionne Workbook, et du second, SheetFollowHyperlink.

Merci pour ta réponse.

Donc maintenant j'ai compris comment appeler une macro avec un lien hypertexte. Super.

Mais avec cette méthode, est-ce que je peux avoir plusieurs liens hypertexte par page, qui qui appellent chacun une macro ?

Merci d'avance.

Si tous les liens hypertextes de ta page lancent la même macro, tu conserves la macro tel quelle.

Si chaque lien hypertexte doit lancer une macro différente, c'est un peu plus compliqué...

Merci pour ta réponse.

J'ai peur que ce soit la version plus compliquée.....

crée un 2eme lien hypertexte envoyant sur la Feuil3

Dim aa As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
aa = Target
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Count > 1 Then Exit Sub
If aa = "Feuil2" Then
    MsgBox aa
Else
    MsgBox "ok"
End If
End Sub

Essaye ça.

Tu vas devoir gérer une série de conditions.

Rechercher des sujets similaires à "lancer macro via lien hypertexte"