Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ajuster le hyperlien

ajuster le hyperlien

6 réponses
Avatar
Daniel
Bonjour

J'ai un fichier qui a plusieur onglet, et un onglet est mon sommaire des
autres .
Dans cette onglet j'ai fait plusieur hyperlien ,
Quand je clic sur un hyperlien je me retrouve a l'endroit désirer mais pas
centre en haut a gauche !

que faire ?

et comment faire pour exécuter une macro après avoir cliquer le lien?
MERCI
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-François Aubert
Salut Daniel,

Ceci devrait faire l'affaire:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test

End Sub

'.....................................

Sub macro_test()

msgbox "je suis la macro lancée après un clic sur un lien hypertexte"

End sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:Hqkdb.74010$
Bonjour

J'ai un fichier qui a plusieur onglet, et un onglet est mon sommaire des
autres .
Dans cette onglet j'ai fait plusieur hyperlien ,
Quand je clic sur un hyperlien je me retrouve a l'endroit désirer mais pas
centre en haut a gauche !

que faire ?

et comment faire pour exécuter une macro après avoir cliquer le lien?
MERCI




Avatar
Daniel
Merci Jean-François
Mais je ne comprent pas , peut tu me l'expliquer comment et ou copier cela ?

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Daniel,

Ceci devrait faire l'affaire:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test

End Sub

'.....................................

Sub macro_test()

msgbox "je suis la macro lancée après un clic sur un lien hypertexte"

End sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:Hqkdb.74010$
Bonjour

J'ai un fichier qui a plusieur onglet, et un onglet est mon sommaire des
autres .
Dans cette onglet j'ai fait plusieur hyperlien ,
Quand je clic sur un hyperlien je me retrouve a l'endroit désirer mais
pas


centre en haut a gauche !

que faire ?

et comment faire pour exécuter une macro après avoir cliquer le lien?
MERCI








Avatar
Jean-François Aubert
Salut Daniel,

Pour comprendre ce qui suit, je te conseille de jeter un oeil sur cette page:
http://cherbe.free.fr/VBA5_1999.html#l'éditeur

Extrait de la page ci-dessus mentionnée:

"" On accéde à l'éditeur depuis les menus d'application MS-Office, XL pour ce qui nous concerne:
menbu Outils puis Macros puis Visual Basic Editor ou en appuyant simultanément sur ALT+F11.
L'écran est divisé en cadres.L'explorateur de projets liste les documents ouverts et leur
compositions (feuilles, modules ...). ""

Regarde bien le paragraphe: Prise en main de l'éditeur VBA5


- Dans le module ThisWorkbook, tu colles ceci:

'************************
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test
End Sub
'**************************
- si ton classeur ne comporte pas encore de module (par exemple: Module1)
quand ton pointeur est sur ThisWorkbook par exemple, clic droit -> Insertion -> module

Dans le Module1, tu colles ceci:

'******************
Sub macro_test()
msgbox "je suis la macro lancée après un clic sur un lien hypertexte"
End sub
'*******************
- tu cliques sur un de tes liens, la première macro "Private Sub Worksheet..."
se lance, fait son boulot ( scoll de l'écran) et lance la deuxième macro "Sub macro_test",
qui peut être n'importe quoi comme action.

voir aussi
http://dj.joss.free.fr/vbanul.htm
http://www.excelabo.net/


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:kVBdb.15482$
Merci Jean-François
Mais je ne comprent pas , peut tu me l'expliquer comment et ou copier cela ?

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Daniel,

Ceci devrait faire l'affaire:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test

End Sub

'.....................................

Sub macro_test()

msgbox "je suis la macro lancée après un clic sur un lien hypertexte"

End sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:Hqkdb.74010$
Bonjour

J'ai un fichier qui a plusieur onglet, et un onglet est mon sommaire des
autres .
Dans cette onglet j'ai fait plusieur hyperlien ,
Quand je clic sur un hyperlien je me retrouve a l'endroit désirer mais
pas


centre en haut a gauche !

que faire ?

et comment faire pour exécuter une macro après avoir cliquer le lien?
MERCI












Avatar
sabatier
--------------23EC24FA9C4BC26A62A8815B
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

à part ce message de daniel dont l'horloge est au 29 octobre, je n'ai pas de
message au-delà de 04.45 cette nuit...am I alone to live this so bad situation
(je dis ça en anglais pour être sur que bilou me lise et me comprenne)
jps

Daniel wrote:

Gros Marci cela fonctionne bien
Maintenant je voudrait que lorsque je clic sur le lien cela me change de
fenêtre et fait un FILTRE dans une autre fenêtre a coté (ont voie deux demie
fenêtre un peut superposer).
il y a environ 200 lien dans la première,
La ou le lien arrive (ou il me transfer) il y a les chifres (et lettre)
que je doit utiliser pour faire le filtre.

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Daniel,

Pour comprendre ce qui suit, je te conseille de jeter un oeil sur cette
page:

http://cherbe.free.fr/VBA5_1999.html#l'éditeur

Extrait de la page ci-dessus mentionnée:

"" On accéde à l'éditeur depuis les menus d'application MS-Office, XL pour
ce qui nous concerne:

menbu Outils puis Macros puis Visual Basic Editor ou en appuyant
simultanément sur ALT+F11.

L'écran est divisé en cadres.L'explorateur de projets liste les documents
ouverts et leur

compositions (feuilles, modules ...). ""

Regarde bien le paragraphe: Prise en main de l'éditeur VBA5


- Dans le module ThisWorkbook, tu colles ceci:

'************************
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test
End Sub
'**************************
- si ton classeur ne comporte pas encore de module (par exemple: Module1)
quand ton pointeur est sur ThisWorkbook par exemple, clic droit ->
Insertion -> module


Dans le Module1, tu colles ceci:

'******************
Sub macro_test()
msgbox "je suis la macro lancée après un clic sur un lien hypertexte"
End sub
'*******************
- tu cliques sur un de tes liens, la première macro "Private Sub
Worksheet..."

se lance, fait son boulot ( scoll de l'écran) et lance la deuxième macro
"Sub macro_test",

qui peut être n'importe quoi comme action.

voir aussi
http://dj.joss.free.fr/vbanul.htm
http://www.excelabo.net/


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:kVBdb.15482$
Merci Jean-François
Mais je ne comprent pas , peut tu me l'expliquer comment et ou copier
cela ?



"Jean-François Aubert" <à a écrit dans le
message de


news:
Salut Daniel,

Ceci devrait faire l'affaire:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test

End Sub

'.....................................

Sub macro_test()

msgbox "je suis la macro lancée après un clic sur un lien
hypertexte"




End sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:Hqkdb.74010$
Bonjour

J'ai un fichier qui a plusieur onglet, et un onglet est mon sommaire
des




autres .
Dans cette onglet j'ai fait plusieur hyperlien ,
Quand je clic sur un hyperlien je me retrouve a l'endroit désirer
mais




pas
centre en haut a gauche !

que faire ?

et comment faire pour exécuter une macro après avoir cliquer le
lien?




MERCI














--------------23EC24FA9C4BC26A62A8815B
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
&agrave; part ce message de daniel dont l'horloge est au 29 octobre, je
n'ai pas de message au-del&agrave; de 04.45 cette nuit...am I alone to
live this so bad situation (je dis &ccedil;a en anglais pour &ecirc;tre
sur que bilou me lise et me comprenne)
<br>jps
<p>Daniel wrote:
<blockquote TYPE=CITE>Gros Marci cela fonctionne bien
<br>Maintenant je voudrait que lorsque je clic sur le lien cela me change
de
<br>fen&ecirc;tre et fait un FILTRE dans une autre fen&ecirc;tre a cot&eacute;
(ont voie deux demie
<br>fen&ecirc;tre un peut superposer).
<br>il y a environ 200 lien dans la premi&egrave;re,
<br>La ou le lien arrive (ou il me transfer) il y a les chifres&nbsp; (et
lettre)
<br>que je doit utiliser pour faire le filtre.
<p>"Jean-Fran&ccedil;ois Aubert" &lt;&agrave; a
&eacute;crit dans le message de
<br><a href="news:">news:</a>...
<br>> Salut Daniel,
<br>>
<br>> Pour comprendre ce qui suit, je te conseille de jeter un oeil sur
cette
<br>page:
<br>> <a href="http://cherbe.free.fr/VBA5_1999.html#l'éditeur">http://cherbe.free.fr/VBA5_1999.html#l'&eacute;diteur</a>
<br>>
<br>> Extrait de la page ci-dessus mentionn&eacute;e:
<br>>
<br>> "" On acc&eacute;de &agrave; l'&eacute;diteur depuis les menus d'application
MS-Office, XL pour
<br>ce qui nous concerne:
<br>> menbu Outils puis Macros puis Visual Basic Editor ou en appuyant
<br>simultan&eacute;ment sur ALT+F11.
<br>> L'&eacute;cran est divis&eacute; en cadres.L'explorateur de projets
liste les documents
<br>ouverts et leur
<br>> compositions (feuilles, modules ...). ""
<br>>
<br>> Regarde bien le paragraphe: Prise en main de l'&eacute;diteur VBA5
<br>>
<br>>
<br>> - Dans le module ThisWorkbook, tu colles ceci:
<br>>
<br>> '************************
<br>> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
<br>> ActiveWindow.ScrollRow = ActiveCell.Row
<br>>&nbsp;&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = ActiveCell.Column
<br>>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; macro_test
<br>> End Sub
<br>> '**************************
<br>> - si ton classeur ne comporte pas encore de module (par exemple:
Module1)
<br>> quand ton pointeur est sur ThisWorkbook par exemple, clic droit ->
<br>Insertion -> module
<br>>
<br>> Dans le Module1, tu colles ceci:
<br>>
<br>> '******************
<br>> Sub macro_test()
<br>>&nbsp;&nbsp;&nbsp;&nbsp; msgbox "je suis la macro lanc&eacute;e apr&egrave;s
un clic sur un lien hypertexte"
<br>> End sub
<br>> '*******************
<br>> - tu cliques sur un de tes liens, la premi&egrave;re macro "Private
Sub
<br>Worksheet..."
<br>> se lance, fait son boulot ( scoll de l'&eacute;cran) et lance la
deuxi&egrave;me macro
<br>"Sub macro_test",
<br>> qui peut &ecirc;tre n'importe quoi comme action.
<br>>
<br>> voir aussi
<br>> <a href="http://dj.joss.free.fr/vbanul.htm">http://dj.joss.free.fr/vbanul.htm</a>
<br>> <a href="http://www.excelabo.net/">http://www.excelabo.net/</a>
<br>>
<br>>
<br>> --
<br>> Amicalement
<br>>
<br>> Jean-Fran&ccedil;ois Aubert
<br>> {Vaudois de la C&ocirc;te L&eacute;manique}
<br>>
<br>>
<br>> "Daniel" &lt; a &eacute;crit dans le message
de
<br>> <a href="news:kVBdb.15482$">news:kVBdb.15482$</a>...
<br>> > Merci Jean-Fran&ccedil;ois
<br>> > Mais je ne comprent pas , peut tu me l'expliquer comment et ou
copier
<br>cela ?
<br>> >
<br>> > "Jean-Fran&ccedil;ois Aubert" &lt;&agrave;
a &eacute;crit dans le
<br>message de
<br>> > <a href="news:">news:</a>...
<br>> > > Salut Daniel,
<br>> > >
<br>> > > Ceci devrait faire l'affaire:
<br>> > >
<br>> > > Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
<br>> > >
<br>> > > ActiveWindow.ScrollRow = ActiveCell.Row
<br>> > >&nbsp;&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = ActiveCell.Column
<br>> > >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; macro_test
<br>> > >
<br>> > > End Sub
<br>> > >
<br>> > > '.....................................
<br>> > >
<br>> > > Sub macro_test()
<br>> > >
<br>> > >&nbsp;&nbsp;&nbsp;&nbsp; msgbox "je suis la macro lanc&eacute;e
apr&egrave;s un clic sur un lien
<br>hypertexte"
<br>> > >
<br>> > > End sub
<br>> > >
<br>> > >
<br>> > >
<br>> > > --
<br>> > > Amicalement
<br>> > >
<br>> > > Jean-Fran&ccedil;ois Aubert
<br>> > > {Vaudois de la C&ocirc;te L&eacute;manique}
<br>> > >
<br>> > >
<br>> > > "Daniel" &lt; a &eacute;crit dans le message
de
<br>> > > <a href="news:Hqkdb.74010$">news:Hqkdb.74010$</a>...
<br>> > > > Bonjour
<br>> > > >
<br>> > > > J'ai un fichier qui a plusieur onglet, et un onglet est mon
sommaire
<br>des
<br>> > > > autres .
<br>> > > > Dans cette onglet j'ai fait plusieur hyperlien ,
<br>> > > > Quand je clic sur un hyperlien je me retrouve a l'endroit d&eacute;sirer
<br>mais
<br>> > pas
<br>> > > > centre en haut a gauche !
<br>> > > >
<br>> > > > que faire ?
<br>> > > >
<br>> > > > et comment faire pour ex&eacute;cuter une macro apr&egrave;s
avoir cliquer le
<br>lien?
<br>> > > > MERCI
<br>> > > >
<br>> > > >
<br>> > >
<br>> > >
<br>> >
<br>> >
<br>>
<br>></blockquote>
</html>

--------------23EC24FA9C4BC26A62A8815B--





Avatar
Pierre CFI
salut jps
fait attention, ton msg fait plus de 10 k et en ce moment gros message = virus = prison :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Avatar
Daniel
Gros Marci cela fonctionne bien
Maintenant je voudrait que lorsque je clic sur le lien cela me change de
fenêtre et fait un FILTRE dans une autre fenêtre a coté (ont voie deux demie
fenêtre un peut superposer).
il y a environ 200 lien dans la première,
La ou le lien arrive (ou il me transfer) il y a les chifres (et lettre)
que je doit utiliser pour faire le filtre.

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Daniel,

Pour comprendre ce qui suit, je te conseille de jeter un oeil sur cette
page:

http://cherbe.free.fr/VBA5_1999.html#l'éditeur

Extrait de la page ci-dessus mentionnée:

"" On accéde à l'éditeur depuis les menus d'application MS-Office, XL pour
ce qui nous concerne:

menbu Outils puis Macros puis Visual Basic Editor ou en appuyant
simultanément sur ALT+F11.

L'écran est divisé en cadres.L'explorateur de projets liste les documents
ouverts et leur

compositions (feuilles, modules ...). ""

Regarde bien le paragraphe: Prise en main de l'éditeur VBA5


- Dans le module ThisWorkbook, tu colles ceci:

'************************
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test
End Sub
'**************************
- si ton classeur ne comporte pas encore de module (par exemple: Module1)
quand ton pointeur est sur ThisWorkbook par exemple, clic droit ->
Insertion -> module


Dans le Module1, tu colles ceci:

'******************
Sub macro_test()
msgbox "je suis la macro lancée après un clic sur un lien hypertexte"
End sub
'*******************
- tu cliques sur un de tes liens, la première macro "Private Sub
Worksheet..."

se lance, fait son boulot ( scoll de l'écran) et lance la deuxième macro
"Sub macro_test",

qui peut être n'importe quoi comme action.

voir aussi
http://dj.joss.free.fr/vbanul.htm
http://www.excelabo.net/


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:kVBdb.15482$
Merci Jean-François
Mais je ne comprent pas , peut tu me l'expliquer comment et ou copier
cela ?



"Jean-François Aubert" <à a écrit dans le
message de


news:
Salut Daniel,

Ceci devrait faire l'affaire:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
macro_test

End Sub

'.....................................

Sub macro_test()

msgbox "je suis la macro lancée après un clic sur un lien
hypertexte"




End sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Daniel" a écrit dans le message de
news:Hqkdb.74010$
Bonjour

J'ai un fichier qui a plusieur onglet, et un onglet est mon sommaire
des




autres .
Dans cette onglet j'ai fait plusieur hyperlien ,
Quand je clic sur un hyperlien je me retrouve a l'endroit désirer
mais




pas
centre en haut a gauche !

que faire ?

et comment faire pour exécuter une macro après avoir cliquer le
lien?




MERCI