[VBA-E] lien hyper texte

Bonjour,

je voudrai savoir si c'est possible de spécifier que la cellule à laquelle refère un lien hypertexte soit sur la première ligne de la feuille, et non pas celle de la dernière ligne.

Merci.

Oui, il suffit de le préciser dans le lien hypertexte:

Code:

---

1 2 3 4 5 6

Sub Makro1()   Sheets("Tabelle1").Select Range("A1").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Tabelle2!A1" End Sub

---

Merci pour la réponse mais je pense que je me suis mal exprimée pour ma question :

En fait j'ai un lien hypertexte sur une feuille, et quand je clique dessus j'arrive plus bas dans la feuille, et je voudrai que la cellule sur laquelle arrive ce lien hypertexte soit sur la première ligne de la feuille, et non pas la dernière (pour un simple confort d'utilisation, pour éviter d'avoir à utiliser la molette de la souris)

j'espère être plus clair.

bonjour

A partir d'Excel2000 tu peux utiliser l'évènement FollowHyperlink

Code:

---

1 2 3

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Application.Goto Reference:=ActiveCell, Scroll:=True End Sub

---

michel

ok merci Michel cela marche !

tu es bien matinal dis-moi.

Sinon je ne sais pas pourquoi mais quand j'utilise du code du genre if target.parent.address = "$B$27" then ... elseif target.parent.address = "$C$27" then ... etc... certains liens marchent et d'autres non

j'ai remarqué que si le lien hypertexte est créé avant d'écrire le code, le code que l'on écris n'est jamais pris en compte
c'est bizarre si tu as une explication à m'apporter..

Bonsoir

Je ne réussis pas à reproduire ton problème (Excel2002)
Tes liens sont tous dans le même page?


michel

oui pour des liens qui sont tous dans la même page, je fais des copier coller et je change juste l'adresse de la cellule, et ils ne marchent pas tous.. c'est incompréhensible.

Et en fait j'ai remarqué cela que ceux qui ne marchaient pas étaient ceux qui ont été crées avant que j'écrive le code c'est très bizarre.
il sy en a que je n'arrive jamais à faire marcher..
au boulot je travaille avec Excel 2003.