Bonjour le forum
J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet.
Mais A2 reste sélectionné
Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait
pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou
j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur
F65536.End(xlUp).
J'ai essayé avec selection.change mais ça donne rien du tout.
Merci
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
michdenis
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'-------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then
Range("F65536").End(xlUp).Select
End If
End Sub
'-------------------------------
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de groupe de discussion :
ObJ37buXKHA.3600@TK2MSFTNGP04.phx.gbl...
Bonjour le forum
J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet.
Mais A2 reste sélectionné
Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait
pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou
j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur
F65536.End(xlUp).
J'ai essayé avec selection.change mais ça donne rien du tout.
Merci
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
milloche
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
Salut Denis
J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais
trouvé çà.
IMPEC
<]:o))
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%239EnPmuXKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'-------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then
Range("F65536").End(xlUp).Select
End If
End Sub
'-------------------------------
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de
groupe de discussion :
ObJ37buXKHA.3600@TK2MSFTNGP04.phx.gbl...
Bonjour le forum
J'ai en A2 un lien hypertexte qui fonctionne et appelle une page
internet.
Mais A2 reste sélectionné
Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il
fait
pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou
j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur
F65536.End(xlUp).
J'ai essayé avec selection.change mais ça donne rien du tout.
Merci
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
milloche
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre ? La, je doute fortement, mais tu connais tellement de trucs !
"milloche" a écrit dans le message de news:
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une
action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre
?
La, je doute fortement, mais tu connais tellement de trucs !
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
OH4TEtuXKHA.4452@TK2MSFTNGP04.phx.gbl...
Salut Denis
J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais
jamais trouvé çà.
IMPEC
<]:o))
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%239EnPmuXKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'-------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then
Range("F65536").End(xlUp).Select
End If
End Sub
'-------------------------------
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de
groupe de discussion :
ObJ37buXKHA.3600@TK2MSFTNGP04.phx.gbl...
Bonjour le forum
J'ai en A2 un lien hypertexte qui fonctionne et appelle une page
internet.
Mais A2 reste sélectionné
Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il
fait
pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou
j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur
F65536.End(xlUp).
J'ai essayé avec selection.change mais ça donne rien du tout.
Merci
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre ? La, je doute fortement, mais tu connais tellement de trucs !
"milloche" a écrit dans le message de news:
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
michdenis
l'insertion d'un lien hypertexte d'un site web ne permet pas de désigner un signet que pourrait représenter un mot dans la page Web désirée.
"milloche" a écrit dans le message de groupe de discussion :
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre ? La, je doute fortement, mais tu connais tellement de trucs !
"milloche" a écrit dans le message de news:
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
l'insertion d'un lien hypertexte d'un site web ne permet
pas de désigner un signet que pourrait représenter un
mot dans la page Web désirée.
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de groupe de discussion :
e0DaTzuXKHA.4452@TK2MSFTNGP04.phx.gbl...
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une
action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre
?
La, je doute fortement, mais tu connais tellement de trucs !
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
OH4TEtuXKHA.4452@TK2MSFTNGP04.phx.gbl...
Salut Denis
J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais
jamais trouvé çà.
IMPEC
<]:o))
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%239EnPmuXKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'-------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then
Range("F65536").End(xlUp).Select
End If
End Sub
'-------------------------------
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de
groupe de discussion :
ObJ37buXKHA.3600@TK2MSFTNGP04.phx.gbl...
Bonjour le forum
J'ai en A2 un lien hypertexte qui fonctionne et appelle une page
internet.
Mais A2 reste sélectionné
Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il
fait
pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou
j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur
F65536.End(xlUp).
J'ai essayé avec selection.change mais ça donne rien du tout.
Merci
l'insertion d'un lien hypertexte d'un site web ne permet pas de désigner un signet que pourrait représenter un mot dans la page Web désirée.
"milloche" a écrit dans le message de groupe de discussion :
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre ? La, je doute fortement, mais tu connais tellement de trucs !
"milloche" a écrit dans le message de news:
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
milloche
Dommage Mais c'est déjà très bien comme çà. @ la prochaine JMM
"michdenis" a écrit dans le message de news:
l'insertion d'un lien hypertexte d'un site web ne permet pas de désigner un signet que pourrait représenter un mot dans la page Web désirée.
"milloche" a écrit dans le message de groupe de discussion :
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre ? La, je doute fortement, mais tu connais tellement de trucs !
"milloche" a écrit dans le message de news:
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci
Dommage
Mais c'est déjà très bien comme çà.
@ la prochaine
JMM
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OQIGx9uXKHA.4688@TK2MSFTNGP06.phx.gbl...
l'insertion d'un lien hypertexte d'un site web ne permet
pas de désigner un signet que pourrait représenter un
mot dans la page Web désirée.
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de
groupe de discussion :
e0DaTzuXKHA.4452@TK2MSFTNGP04.phx.gbl...
Pendant que j'y suis, possible d'executer aussi à partir de cette macro
une
action (1 ou 2 page down sur l'ascenseur) sur la page internet qui
s'ouvre
?
La, je doute fortement, mais tu connais tellement de trucs !
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
OH4TEtuXKHA.4452@TK2MSFTNGP04.phx.gbl...
Salut Denis
J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais
jamais trouvé çà.
IMPEC
<]:o))
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%239EnPmuXKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'-------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then
Range("F65536").End(xlUp).Select
End If
End Sub
'-------------------------------
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de
groupe de discussion :
ObJ37buXKHA.3600@TK2MSFTNGP04.phx.gbl...
Bonjour le forum
J'ai en A2 un lien hypertexte qui fonctionne et appelle une page
internet.
Mais A2 reste sélectionné
Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il
fait
pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou
j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur
F65536.End(xlUp).
J'ai essayé avec selection.change mais ça donne rien du tout.
Merci
Dommage Mais c'est déjà très bien comme çà. @ la prochaine JMM
"michdenis" a écrit dans le message de news:
l'insertion d'un lien hypertexte d'un site web ne permet pas de désigner un signet que pourrait représenter un mot dans la page Web désirée.
"milloche" a écrit dans le message de groupe de discussion :
Pendant que j'y suis, possible d'executer aussi à partir de cette macro une action (1 ou 2 page down sur l'ascenseur) sur la page internet qui s'ouvre ? La, je doute fortement, mais tu connais tellement de trucs !
"milloche" a écrit dans le message de news:
Salut Denis J'ai bien fait de demander sans passer 3 jours à chercher, j'aurais jamais trouvé çà. IMPEC <]:o))
"michdenis" a écrit dans le message de news: %
Bonjour Milloche,
Dans le module feuille où se déroule l'action, essaie ceci :
'------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Range("A2").Hyperlinks(1).Parent.Address = "$A$2" Then Range("F65536").End(xlUp).Select End If End Sub '-------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour le forum J'ai en A2 un lien hypertexte qui fonctionne et appelle une page internet. Mais A2 reste sélectionné Quand je clique dessus, je voudrais qu'Excel active ce lien (ce qu'il fait pour l'instant) mais qu'il revienne ensuite tout seul sur la cellule ou j'étais avant le clic. Ou si c'est trop compliqué, qu'il revienne sur F65536.End(xlUp). J'ai essayé avec selection.change mais ça donne rien du tout. Merci