OVH Cloud OVH Cloud

Hypertexte

8 réponses
Avatar
pellet15
Bonjour =E0 tous

J'ai placer plusieur hypertexte dans une liste (onglet Liste)
et lorsque je l'ex=E9cute ci la derni=E8re fois que j'avais s=E9lectionner
une cellule beaucoup plus bas dans cette feuille(onglet Tasch)
le curceur se retrouve dans le haut de la page,
par conte si la derni=E8re fois j'avais s=E9lectionner une
cellule beaucoup plus haut que ma destination
je me retrouve en bas de la feuille.

Comment faire pour arriver avec toujour la haut de la feuille?

Merci

8 réponses

Avatar
Daniel
Bonjour.
Peux-tu poster ta feuille sur www.cjoint.com ?
Cordialement.
Daniel
"pellet15" a écrit dans le message de news:

Bonjour à tous

J'ai placer plusieur hypertexte dans une liste (onglet Liste)
et lorsque je l'exécute ci la dernière fois que j'avais sélectionner
une cellule beaucoup plus bas dans cette feuille(onglet Tasch)
le curceur se retrouve dans le haut de la page,
par conte si la dernière fois j'avais sélectionner une
cellule beaucoup plus haut que ma destination
je me retrouve en bas de la feuille.

Comment faire pour arriver avec toujour la haut de la feuille?

Merci
Avatar
pellet15
Bonsoir Daniel

Si ont clic sur C4 de L'onglet "Liste"
on va a D5 de L'onglet "Tasch"
Parfait le curseur est en haut de la page.
et sur C11 ont se retrouve en bas :-(
et si dans L'onglet "Tasch" on va plusieur page plus bas quand on clic
sur C11 la ont est en haut .

http://cjoint.com/?fydxwXNzNr

Merci
Avatar
isabelle
bonjour pellet15,

place cette macro sur la page code de la feuille "Liste"

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

isabelle

Bonsoir Daniel

Si ont clic sur C4 de L'onglet "Liste"
on va a D5 de L'onglet "Tasch"
Parfait le curseur est en haut de la page.
et sur C11 ont se retrouve en bas :-(
et si dans L'onglet "Tasch" on va plusieur page plus bas quand on clic
sur C11 la ont est en haut .

http://cjoint.com/?fydxwXNzNr

Merci



Avatar
pellet15
Bonjour Isabelle

Super cela répon très bien

Une petite question comment copier l'hypertext pour
que le lien change sur chaque cellule (il y a 13 ligne entre)

Comme quand on copie une formule elle sajuste a chaque!!

MERCI beaucoup
Avatar
isabelle
je ne crois pas que ce soit possible.

isabelle

Bonjour Isabelle

Super cela répon très bien

Une petite question comment copier l'hypertext pour
que le lien change sur chaque cellule (il y a 13 ligne entre)

Comme quand on copie une formule elle sajuste a chaque!!

MERCI beaucoup



Avatar
pellet15
Avatar
isabelle
mais on peut toujours rendre la tache automatique :

Sub Macro1()
x = 5
For Each c In Range("C4:C12")
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="Tasch!D" & x
x = x + 13
Next
End Sub

isabelle

Ha

Merci



Avatar
pellet15
Bonjour Isabelle

excuse pour ne pas avoir répondu tout de suite j'ai du m'absenté.
La macros fonctionne bien.
J'ai modifier pour couvrire 70 lignes .

Merci Beaucoup