XL 2016 Problème d'exécution de macro via lien hypertexte

gawella

XLDnaute Nouveau
Bonjour,

je suis sûre que la solution est simple mais je bloque sur un problème !
J'ai une carte avec des zone entourées sous forme de... forme ! qui ont des liens hypertextes. Je veux aussi que ces formes exécutent une macro avec la valeur de la cellule vers laquelle elles mènent pour trier un tableau.
Problème : l'évènement Workbook_SheetFollowHyperlink fonctionne si le lien est sur une cellule mais pas si c'est sur une forme et je ne peux pas avoir à la fois un lien ET une macro sur une forme...
Une idée ?
Je ne suis pas douée pour expliquer donc petit fichier en exemple.
Merci à ceux qui voudront bien me guider !
 

Pièces jointes

  • Map_W.xlsm
    17.9 KB · Affichages: 10

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Gawella,
Je ne sais pas si ma proposition va vous plaire.
Sur chaque forme juste une macro sans lien hypertexte, et cette macro :
VB:
Sub TEST()
    Qui = Application.Caller            ' Qui m'appelle
    Numéro = Val(Split(Qui, " ")(1))    ' Mon identifiant
    Où = "A" & Numéro                   ' Cellule où aller
    Range(Où).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True   ' Activer lien
End Sub
J'identifie la forme qui appelle, et je lance le lien de la cellule correspondante.
 

Pièces jointes

  • Map_W.xlsm
    19.5 KB · Affichages: 5

Discussions similaires

Réponses
7
Affichages
436
Réponses
5
Affichages
332

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal