Créer un lien hypertexte sur une forme

[Airone784]

Bonsoir,

Je suis paumé avec une création de lien hypertexte.
J'ai ce code :

With Worksheets("MENU_" & TextBox1).Shapes.AddShape(msoShapeOval, 200, 200, 200, 60)
  .TextFrame.Characters.Text = "FICHE INDIVIDUELLE"
  .TextFrame.Characters.Font.Size = 12
  .TextFrame.Characters.Font.ColorIndex = 1
  .TextFrame.Characters.Font.Name = "Comic sans MS"
  .Line.ForeColor.SchemeColor = 8
  .Fill.ForeColor.SchemeColor = 12
End With

Après ce code, je voudrais créer un lien hypertexte sur cette forme. Ce lien doit me rediriger vers une autre feuille du classeur.

Merci d'avance pour votre aide 🙂

Cordialement

 

[Guest]

Re : Créer un lien hypertexte sur une forme

Bonjour,

Fais le d'abord avec l'enregistreur de macro et tu verras comment adapter.

A+

 

[Airone784]

Re : Créer un lien hypertexte sur une forme

Salut Hasco,
Mon enregistreur de macro ne me renvoi rien Hasco.

 

[tototiti2008]

Re : Créer un lien hypertexte sur une forme

Bonjour Airone, Bonjour Hasco 🙂

Eh oui, dès que ça touche aux objets, l'enregistreur de 2007 est muet... ils ont corrigé ça en 2010

une proposition faite grâce à l'enregistreur de 2003

Dim Sh As Shape
Set Sh = Worksheets("MENU_" & TextBox1).Shapes.AddShape(msoShapeOval, 200, 200, 200, 60)
With Sh
  .TextFrame.Characters.Text = "FICHE INDIVIDUELLE"
  .TextFrame.Characters.Font.Size = 12
  .TextFrame.Characters.Font.ColorIndex = 1
  .TextFrame.Characters.Font.Name = "Comic sans MS"
  .Line.ForeColor.SchemeColor = 8
  .Fill.ForeColor.SchemeColor = 12
End With
Worksheets("MENU_" & TextBox1).Hyperlinks.Add Anchor:=Sh, Address:= _
        "", SubAddress:="Feuil2!A1"

 

[Guest]

Re : Créer un lien hypertexte sur une forme

Re,

Avec un shape nommé 'MonRectangle' dans la feuille active:

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("MonRectangle"), Address:="", SubAddress:="Feuil2!A1"

Insère un lien vers feuil2!A1

A+

[Edit] Hello Tototiti😀😀😀
C'est à croire que l'aide VBA n'est installée nulle part !!!!!

 

[Airone784]

Re : Créer un lien hypertexte sur une forme

Bonjour Toto,

Dans ton exemple, tu ne précises pas que le lien doit se faire sur ma forme créée!!!

 

[Airone784]

Re : Créer un lien hypertexte sur une forme

Super ça marche très bien. Merci à Hasco et Toto.

 

[Airone784]

Re : Créer un lien hypertexte sur une forme

Voilà le nouveau blocage que je rencontre. Décidemment 🙁

With Worksheets("MENU_" & TextBox1).Shapes.AddShape(msoShapeOval, 200, 200, 200, 60)
  .TextFrame.Characters.Text = "FICHE INDIVIDUELLE"
  .TextFrame.Characters.Font.Size = 12
  .TextFrame.Characters.Font.ColorIndex = 1
  .TextFrame.Characters.Font.Name = "Comic sans MS"
  .Line.ForeColor.SchemeColor = 8
  .Fill.ForeColor.SchemeColor = 12
End With

Worksheets("MENU_" & TextBox1).Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Ellipse 7"), Address:="", SubAddress:="FI_" & TextBox1 & "!A1"

Le problème c'est que le nom de ma shape que je viens de créer est variable. Dans mon exemple l'ajout du lien hypertexte fonctionne si ma shape que je viens de créer s'appelle Ellipse 7 sinon j'ai une erreur... Que faire???

Puis-je récupérer le nom de ma shape créée juste avant de définir le lien hypertexte de celle-ci????

PS : je précise que le nom de ma shape est celui qui est dans la zone excel où l'on peut définir un nom à une zone de la feuille par exemple, zone que l'on retrouve ensuite facilement par le menu FORMULE -> Gestionnaire de noms.

 

[Guest]

Re : Créer un lien hypertexte sur une forme

Re,

Tototiti😀, mon illustre collègue t'as donné 1 solution dans son dernier post. L'as-tu testée? En essayant de comprendre le but de la variable objet Sh que sa macro crée.

A+

 

[Airone784]

Re : Créer un lien hypertexte sur une forme

Ah oui OK. Mon problème n'existe pas en fait avec le code de toto. Je dois avouer que le set sh m'a complètement échappé. Surement en partie du au fait que j'ai du mal à comprendre à quoi sert le SET en VBA!!!! Si tu peux m'éclairer sur ça, merci beaucoup.