Lien hypertexte sur forme automatique VBA

Résolu
Bajinho Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
Bajinho Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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   Statut Membre Dernière intervention   2
 
Bonjour Eric,
ça marche nikel!!!
merci beaucoup pour ta réponse aussi rapide.
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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   Statut Membre Dernière intervention   2
 
Ah ok merci
0