Si l'objectif est de toujours te retrouver dans la cellule A1
de la feuille "Photo_1" lorsque tu cliques sur un lien dans la
feuille "Enseignes", ajoute le code suivant dans le module
feuille de la feuille "Enseignes"
'------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")(0)
Application.Goto Worksheets(X).Range("A1")
End If
End Sub
'------------------------------------
"MichelB" a écrit dans le message de groupe de
discussion :
uP9CR$
Re Bonjour à tous
Je me permets d'ouvrir un second fil et d'expliquer un peu mieux ce que je
voudrais !
Malgré la réponse de JB, je n'arrive pas au résultat escompté ! ;o)
J'ai essayé avec FollowHyperlink, sans résultat.
Sur ma feuille "Enseignes", j'ai une liste de renseignements avec des
liens
en colonne I qui pointent sur des zones de la feuille "Photos_1".
Sur celle-ci, pour revenir, j'ai des liens retour en colonne B (au moins
200), pour revenir vers la feuille "Enseignes".
Dans le sens Enseignes-Photos, çà va, puisque j'indique une cellule sous
chaque photo, mais dans l'autre sens, quand je quitte "Photos_1"
directement
par le lien placé sous chaque photo, j'ai besoin que la cellule active de
la
feuille
"Photos_1" revienne en A1. (Sinon, lorsque je reviens, l'affichage se fait
mal !)
Quelques conseils supplémentaires m'arrangeraient !
Lien vers une version allégée
http://cjoint.com/?ciomIj56C0
Merci d'avance à ceux qui voudront bien se pencher sur mon problème.
Michel
Si l'objectif est de toujours te retrouver dans la cellule A1
de la feuille "Photo_1" lorsque tu cliques sur un lien dans la
feuille "Enseignes", ajoute le code suivant dans le module
feuille de la feuille "Enseignes"
'------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")(0)
Application.Goto Worksheets(X).Range("A1")
End If
End Sub
'------------------------------------
"MichelB" <m.bedain_NoSpam@free.fr> a écrit dans le message de groupe de
discussion :
uP9CR$HiJHA.4448@TK2MSFTNGP05.phx.gbl...
Re Bonjour à tous
Je me permets d'ouvrir un second fil et d'expliquer un peu mieux ce que je
voudrais !
Malgré la réponse de JB, je n'arrive pas au résultat escompté ! ;o)
J'ai essayé avec FollowHyperlink, sans résultat.
Sur ma feuille "Enseignes", j'ai une liste de renseignements avec des
liens
en colonne I qui pointent sur des zones de la feuille "Photos_1".
Sur celle-ci, pour revenir, j'ai des liens retour en colonne B (au moins
200), pour revenir vers la feuille "Enseignes".
Dans le sens Enseignes-Photos, çà va, puisque j'indique une cellule sous
chaque photo, mais dans l'autre sens, quand je quitte "Photos_1"
directement
par le lien placé sous chaque photo, j'ai besoin que la cellule active de
la
feuille
"Photos_1" revienne en A1. (Sinon, lorsque je reviens, l'affichage se fait
mal !)
Quelques conseils supplémentaires m'arrangeraient !
Lien vers une version allégée
http://cjoint.com/?ciomIj56C0
Merci d'avance à ceux qui voudront bien se pencher sur mon problème.
Michel
Si l'objectif est de toujours te retrouver dans la cellule A1
de la feuille "Photo_1" lorsque tu cliques sur un lien dans la
feuille "Enseignes", ajoute le code suivant dans le module
feuille de la feuille "Enseignes"
'------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")(0)
Application.Goto Worksheets(X).Range("A1")
End If
End Sub
'------------------------------------
"MichelB" a écrit dans le message de groupe de
discussion :
uP9CR$
Re Bonjour à tous
Je me permets d'ouvrir un second fil et d'expliquer un peu mieux ce que je
voudrais !
Malgré la réponse de JB, je n'arrive pas au résultat escompté ! ;o)
J'ai essayé avec FollowHyperlink, sans résultat.
Sur ma feuille "Enseignes", j'ai une liste de renseignements avec des
liens
en colonne I qui pointent sur des zones de la feuille "Photos_1".
Sur celle-ci, pour revenir, j'ai des liens retour en colonne B (au moins
200), pour revenir vers la feuille "Enseignes".
Dans le sens Enseignes-Photos, çà va, puisque j'indique une cellule sous
chaque photo, mais dans l'autre sens, quand je quitte "Photos_1"
directement
par le lien placé sous chaque photo, j'ai besoin que la cellule active de
la
feuille
"Photos_1" revienne en A1. (Sinon, lorsque je reviens, l'affichage se fait
mal !)
Quelques conseils supplémentaires m'arrangeraient !
Lien vers une version allégée
http://cjoint.com/?ciomIj56C0
Merci d'avance à ceux qui voudront bien se pencher sur mon problème.
Michel
Si l'objectif est de toujours te retrouver dans la cellule A1
de la feuille "Photo_1" lorsque tu cliques sur un lien dans la
feuille "Enseignes", ajoute le code suivant dans le module
feuille de la feuille "Enseignes"
'------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")(0)
Application.Goto Worksheets(X).Range("A1")
End If
End Sub
'------------------------------------
"MichelB" a écrit dans le message de groupe de
discussion :
uP9CR$
Re Bonjour à tous
Je me permets d'ouvrir un second fil et d'expliquer un peu mieux ce que je
voudrais !
Malgré la réponse de JB, je n'arrive pas au résultat escompté ! ;o)
J'ai essayé avec FollowHyperlink, sans résultat.
Sur ma feuille "Enseignes", j'ai une liste de renseignements avec des
liens
en colonne I qui pointent sur des zones de la feuille "Photos_1".
Sur celle-ci, pour revenir, j'ai des liens retour en colonne B (au moins
200), pour revenir vers la feuille "Enseignes".
Dans le sens Enseignes-Photos, çà va, puisque j'indique une cellule sous
chaque photo, mais dans l'autre sens, quand je quitte "Photos_1"
directement
par le lien placé sous chaque photo, j'ai besoin que la cellule active de
la
feuille
"Photos_1" revienne en A1. (Sinon, lorsque je reviens, l'affichage se fait
mal !)
Quelques conseils supplémentaires m'arrangeraient !
Lien vers une version allégée
http://cjoint.com/?ciomIj56C0
Merci d'avance à ceux qui voudront bien se pencher sur mon problème.
Michel
Si l'objectif est de toujours te retrouver dans la cellule A1
de la feuille "Photo_1" lorsque tu cliques sur un lien dans la
feuille "Enseignes", ajoute le code suivant dans le module
feuille de la feuille "Enseignes"
'------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")(0)
Application.Goto Worksheets(X).Range("A1")
End If
End Sub
'------------------------------------
"MichelB" <m.bedain_NoSpam@free.fr> a écrit dans le message de groupe de
discussion :
uP9CR$HiJHA.4448@TK2MSFTNGP05.phx.gbl...
Re Bonjour à tous
Je me permets d'ouvrir un second fil et d'expliquer un peu mieux ce que je
voudrais !
Malgré la réponse de JB, je n'arrive pas au résultat escompté ! ;o)
J'ai essayé avec FollowHyperlink, sans résultat.
Sur ma feuille "Enseignes", j'ai une liste de renseignements avec des
liens
en colonne I qui pointent sur des zones de la feuille "Photos_1".
Sur celle-ci, pour revenir, j'ai des liens retour en colonne B (au moins
200), pour revenir vers la feuille "Enseignes".
Dans le sens Enseignes-Photos, çà va, puisque j'indique une cellule sous
chaque photo, mais dans l'autre sens, quand je quitte "Photos_1"
directement
par le lien placé sous chaque photo, j'ai besoin que la cellule active de
la
feuille
"Photos_1" revienne en A1. (Sinon, lorsque je reviens, l'affichage se fait
mal !)
Quelques conseils supplémentaires m'arrangeraient !
Lien vers une version allégée
http://cjoint.com/?ciomIj56C0
Merci d'avance à ceux qui voudront bien se pencher sur mon problème.
Michel
Si l'objectif est de toujours te retrouver dans la cellule A1
de la feuille "Photo_1" lorsque tu cliques sur un lien dans la
feuille "Enseignes", ajoute le code suivant dans le module
feuille de la feuille "Enseignes"
'------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")(0)
Application.Goto Worksheets(X).Range("A1")
End If
End Sub
'------------------------------------
"MichelB" a écrit dans le message de groupe de
discussion :
uP9CR$
Re Bonjour à tous
Je me permets d'ouvrir un second fil et d'expliquer un peu mieux ce que je
voudrais !
Malgré la réponse de JB, je n'arrive pas au résultat escompté ! ;o)
J'ai essayé avec FollowHyperlink, sans résultat.
Sur ma feuille "Enseignes", j'ai une liste de renseignements avec des
liens
en colonne I qui pointent sur des zones de la feuille "Photos_1".
Sur celle-ci, pour revenir, j'ai des liens retour en colonne B (au moins
200), pour revenir vers la feuille "Enseignes".
Dans le sens Enseignes-Photos, çà va, puisque j'indique une cellule sous
chaque photo, mais dans l'autre sens, quand je quitte "Photos_1"
directement
par le lien placé sous chaque photo, j'ai besoin que la cellule active de
la
feuille
"Photos_1" revienne en A1. (Sinon, lorsque je reviens, l'affichage se fait
mal !)
Quelques conseils supplémentaires m'arrangeraient !
Lien vers une version allégée
http://cjoint.com/?ciomIj56C0
Merci d'avance à ceux qui voudront bien se pencher sur mon problème.
Michel
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Ceci est ton fichier transformé avec la nouvelle procédure que je t'ai
soumise.
http://cjoint.com/?clmaqbz5xF
Si le résultat attendu n'est pas celui que tu attends, il va falloir que
tu t'expliques.
Moi, je n'ai pas changé l'adressage des liens hypertextes et lorsque tu
cliques
sur un lien hypertexte dans ta feuille enseigne, cela t'amène directement
à
l'adresse du lien hypertexte. Cette cellule du lien hypertexte se retrouve
la première cellule dans le haut de la feuille.
Si tu désires un autre comportement c'est que je n'ai rien compris à ta
demande.
Peut être il y a-t-il un autre intervenant aura-t-il une meilleure
compréhension
que la mienne.
"MichelB" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
Le résultat escompté n'est pas au rendez-vous ;o))
Lorsque je reviens sur Photos_1, la cellule liée s'affiche en haut et la
photo pointée est au-dessus, donc invisble à l'écran.Pour l'instant, je
n'ai
trouvé que le palliatif de mettre une plage Ax:Ay sur le lien dans
Enseignes
de la hauteur de la photo sur Photos_1. Ce n'est pas très élégant et ça
risque de gonfler le poids du fichier.
Merci quand même et si tu as une autre idée, elle sera la bienvenue !
Michel
"michdenis"Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
...Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en
bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Ceci est ton fichier transformé avec la nouvelle procédure que je t'ai
soumise.
http://cjoint.com/?clmaqbz5xF
Si le résultat attendu n'est pas celui que tu attends, il va falloir que
tu t'expliques.
Moi, je n'ai pas changé l'adressage des liens hypertextes et lorsque tu
cliques
sur un lien hypertexte dans ta feuille enseigne, cela t'amène directement
à
l'adresse du lien hypertexte. Cette cellule du lien hypertexte se retrouve
la première cellule dans le haut de la feuille.
Si tu désires un autre comportement c'est que je n'ai rien compris à ta
demande.
Peut être il y a-t-il un autre intervenant aura-t-il une meilleure
compréhension
que la mienne.
"MichelB" <m.bedain_NoSpam@free.fr> a écrit dans le message de groupe de
discussion :
efcsNZoiJHA.3728@TK2MSFTNGP06.phx.gbl...
Bonjour Michdenis
Le résultat escompté n'est pas au rendez-vous ;o))
Lorsque je reviens sur Photos_1, la cellule liée s'affiche en haut et la
photo pointée est au-dessus, donc invisble à l'écran.Pour l'instant, je
n'ai
trouvé que le palliatif de mettre une plage Ax:Ay sur le lien dans
Enseignes
de la hauteur de la photo sur Photos_1. Ce n'est pas très élégant et ça
risque de gonfler le poids du fichier.
Merci quand même et si tu as une autre idée, elle sera la bienvenue !
Michel
"michdenis" <michdenis@hotmail.com>
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
...
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en
bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Ceci est ton fichier transformé avec la nouvelle procédure que je t'ai
soumise.
http://cjoint.com/?clmaqbz5xF
Si le résultat attendu n'est pas celui que tu attends, il va falloir que
tu t'expliques.
Moi, je n'ai pas changé l'adressage des liens hypertextes et lorsque tu
cliques
sur un lien hypertexte dans ta feuille enseigne, cela t'amène directement
à
l'adresse du lien hypertexte. Cette cellule du lien hypertexte se retrouve
la première cellule dans le haut de la feuille.
Si tu désires un autre comportement c'est que je n'ai rien compris à ta
demande.
Peut être il y a-t-il un autre intervenant aura-t-il une meilleure
compréhension
que la mienne.
"MichelB" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
Le résultat escompté n'est pas au rendez-vous ;o))
Lorsque je reviens sur Photos_1, la cellule liée s'affiche en haut et la
photo pointée est au-dessus, donc invisble à l'écran.Pour l'instant, je
n'ai
trouvé que le palliatif de mettre une plage Ax:Ay sur le lien dans
Enseignes
de la hauteur de la photo sur Photos_1. Ce n'est pas très élégant et ça
risque de gonfler le poids du fichier.
Merci quand même et si tu as une autre idée, elle sera la bienvenue !
Michel
"michdenis"Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
...Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en
bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Ceci est ton fichier transformé avec la nouvelle procédure que je t'ai
soumise.
http://cjoint.com/?clmaqbz5xF
Si le résultat attendu n'est pas celui que tu attends, il va falloir que
tu t'expliques.
Moi, je n'ai pas changé l'adressage des liens hypertextes et lorsque tu
cliques
sur un lien hypertexte dans ta feuille enseigne, cela t'amène directement
à
l'adresse du lien hypertexte. Cette cellule du lien hypertexte se retrouve
la première cellule dans le haut de la feuille.
Si tu désires un autre comportement c'est que je n'ai rien compris à ta
demande.
Peut être il y a-t-il un autre intervenant aura-t-il une meilleure
compréhension
que la mienne.
"MichelB" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
Le résultat escompté n'est pas au rendez-vous ;o))
Lorsque je reviens sur Photos_1, la cellule liée s'affiche en haut et la
photo pointée est au-dessus, donc invisble à l'écran.Pour l'instant, je
n'ai
trouvé que le palliatif de mettre une plage Ax:Ay sur le lien dans
Enseignes
de la hauteur de la photo sur Photos_1. Ce n'est pas très élégant et ça
risque de gonfler le poids du fichier.
Merci quand même et si tu as une autre idée, elle sera la bienvenue !
Michel
"michdenis"Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
...Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en
bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Ceci est ton fichier transformé avec la nouvelle procédure que je t'ai
soumise.
http://cjoint.com/?clmaqbz5xF
Si le résultat attendu n'est pas celui que tu attends, il va falloir que
tu t'expliques.
Moi, je n'ai pas changé l'adressage des liens hypertextes et lorsque tu
cliques
sur un lien hypertexte dans ta feuille enseigne, cela t'amène directement
à
l'adresse du lien hypertexte. Cette cellule du lien hypertexte se retrouve
la première cellule dans le haut de la feuille.
Si tu désires un autre comportement c'est que je n'ai rien compris à ta
demande.
Peut être il y a-t-il un autre intervenant aura-t-il une meilleure
compréhension
que la mienne.
"MichelB" <m.bedain_NoSpam@free.fr> a écrit dans le message de groupe de
discussion :
efcsNZoiJHA.3728@TK2MSFTNGP06.phx.gbl...
Bonjour Michdenis
Le résultat escompté n'est pas au rendez-vous ;o))
Lorsque je reviens sur Photos_1, la cellule liée s'affiche en haut et la
photo pointée est au-dessus, donc invisble à l'écran.Pour l'instant, je
n'ai
trouvé que le palliatif de mettre une plage Ax:Ay sur le lien dans
Enseignes
de la hauteur de la photo sur Photos_1. Ce n'est pas très élégant et ça
risque de gonfler le poids du fichier.
Merci quand même et si tu as une autre idée, elle sera la bienvenue !
Michel
"michdenis" <michdenis@hotmail.com>
Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
...
Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en
bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.
Ceci est ton fichier transformé avec la nouvelle procédure que je t'ai
soumise.
http://cjoint.com/?clmaqbz5xF
Si le résultat attendu n'est pas celui que tu attends, il va falloir que
tu t'expliques.
Moi, je n'ai pas changé l'adressage des liens hypertextes et lorsque tu
cliques
sur un lien hypertexte dans ta feuille enseigne, cela t'amène directement
à
l'adresse du lien hypertexte. Cette cellule du lien hypertexte se retrouve
la première cellule dans le haut de la feuille.
Si tu désires un autre comportement c'est que je n'ai rien compris à ta
demande.
Peut être il y a-t-il un autre intervenant aura-t-il une meilleure
compréhension
que la mienne.
"MichelB" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
Le résultat escompté n'est pas au rendez-vous ;o))
Lorsque je reviens sur Photos_1, la cellule liée s'affiche en haut et la
photo pointée est au-dessus, donc invisble à l'écran.Pour l'instant, je
n'ai
trouvé que le palliatif de mettre une plage Ax:Ay sur le lien dans
Enseignes
de la hauteur de la photo sur Photos_1. Ce n'est pas très élégant et ça
risque de gonfler le poids du fichier.
Merci quand même et si tu as une autre idée, elle sera la bienvenue !
Michel
"michdenis"Essaie ceci dans le module feuille "Enseigne"
'----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim X As Variant, Adresse As String, SubAdresse As String
If Not Intersect(Range(Target.Parent.Address), _
Range("I2:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then
X = Split(Target.SubAddress, "!")
Application.Goto Worksheets(X(0)).Range(X(1)), True
End If
End Sub
'----------------------------------
...Bonsoir Michdenis
Merci de me répondre.
C'est juste l'inverse que je voudrais.
Positionner la cellule active de la feuille Photos_1 lorsque j'arrive sur
la
feuille Enseignes.
La raison en est que, par la suite, lorsque je clique sur un lien sur
Enseignes,
il y a un décalage si la cellule active de la feuille Photos_1 est en
bas.
Tu peux essayer sur le fichier joint.
Clique sur Le lien Photo10, reviens par le lien Retour, puis, clique le
lien
Photo2
par exemple. Le déplacement est décalé sur Photos_1.