Lien hypertexte sur forme automatique VBA

Résolu/Fermé
Bajinho Messages postés 20 Date d'inscription mercredi 10 avril 2013 Statut Membre Dernière intervention 27 juin 2014 - 16 mai 2013 à 16:59
Bajinho Messages postés 20 Date d'inscription mercredi 10 avril 2013 Statut Membre Dernière intervention 27 juin 2014 - 17 mai 2013 à 12:12
Bonjour,

J'ai un problème et j'aimerais trouver de l'aide auprès de vous.
Voilà, j'ai créé de formes automatiques ( de type Shapes) en VBA et j'aimerais insérer des liens hypertextes qui pointeront vers des cellules de la feuille où se trouvent ces formes automatiques et ajouter aussi une info bulle.
Pour l'instant j'ai ce code mais c'est pas suffisant. Si quelqu'un connait les options permettant d'ajouter ce que je veux, alors je suis preneur.
Merci d'avance.

ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes("oval1"), TexteToDisplay:="Information dans l'info bulle"
A voir également:

2 réponses

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
17 mai 2013 à 00:20
Bonjour,

Fais comme tout le monde, utilise l'enregistreur de macro :
    ActiveSheet.Shapes.AddShape(msoShapeOval, 409.5, 494.25, 191.25, 92.25).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "", SubAddress:="Feuil2!A1", ScreenTip:="cliquez moi"

eric
2
Bajinho Messages postés 20 Date d'inscription mercredi 10 avril 2013 Statut Membre Dernière intervention 27 juin 2014 2
17 mai 2013 à 09:42
Bonjour Eric,
ça marche nikel!!!
merci beaucoup pour ta réponse aussi rapide.
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
17 mai 2013 à 12:10
ok, je met en résolu pour toi (en haut vers ton titre, pour la prochaine fois)
eric
0
Bajinho Messages postés 20 Date d'inscription mercredi 10 avril 2013 Statut Membre Dernière intervention 27 juin 2014 2
17 mai 2013 à 12:12
Ah ok merci
0