sur la Feuil 1 j'ai en cellule A1 le nom d'une voiture ( renault)
=20
cette cellule =E0 un lien hypertexte qui m'emmene sur la feuil3 quand je cl=
ik dessus
comment faire pour qu'=E0 l'ouverture de cette Feuil3,en cellule E6 je puis=
se r=E9cup=E9rer la valeur de la cellule sur laquelle j'ai cliqu=E9 via son=
lien hypertxt
soit au final retrouver renault en Feuil3 E6 si j'ai cliqu=E9 en feuil1 sur=
le lien hypertexte renault situ=E9 en A1
Dans la feuille module où est ton lien hypertexte, copie la procédure suivante. En cliquant sur le lien, la valeur de la cellule contenant le lien sera copiée dans la cellule de destination du lien.
'----------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'vérifie si le lien hypertexte est en A1 If Target.Parent.Address = "$A$1" Then Application.EnableEvents = False 'copie la valeur en A1 à l'endroit où 'le lien hypertexte conduit. Worksheets(Split(Target.SubAddress, "!")(0)). _ Range(Target.SubAddress) = Target.Parent Application.EnableEvents = True End If End Sub '-----------------------------------
Dans la feuille module où est ton lien hypertexte,
copie la procédure suivante. En cliquant sur le lien,
la valeur de la cellule contenant le lien sera copiée
dans la cellule de destination du lien.
'-----------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'vérifie si le lien hypertexte est en A1
If Target.Parent.Address = "$A$1" Then
Application.EnableEvents = False
'copie la valeur en A1 à l'endroit où
'le lien hypertexte conduit.
Worksheets(Split(Target.SubAddress, "!")(0)). _
Range(Target.SubAddress) = Target.Parent
Application.EnableEvents = True
End If
End Sub
'-----------------------------------
Dans la feuille module où est ton lien hypertexte, copie la procédure suivante. En cliquant sur le lien, la valeur de la cellule contenant le lien sera copiée dans la cellule de destination du lien.
'----------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'vérifie si le lien hypertexte est en A1 If Target.Parent.Address = "$A$1" Then Application.EnableEvents = False 'copie la valeur en A1 à l'endroit où 'le lien hypertexte conduit. Worksheets(Split(Target.SubAddress, "!")(0)). _ Range(Target.SubAddress) = Target.Parent Application.EnableEvents = True End If End Sub '-----------------------------------
Tu n'as qu'à cliquer sur le lien hypertexte et ce dernier t'emmène directement vers la cellule de destination et la procédure écrit dans la cellule de destination la valeur de la cellule source.
Si rien ne se passe, c'est que les procédures événementielles ont été désactivées. Exécute la macro suivante une fois.
'-------------------------------- Sub Test() Application.EnableEvents = True End Sub '--------------------------------
Tu n'as qu'à cliquer sur le lien hypertexte et ce dernier t'emmène
directement vers la cellule de destination et la procédure écrit
dans la cellule de destination la valeur de la cellule source.
Si rien ne se passe, c'est que les procédures événementielles
ont été désactivées. Exécute la macro suivante une fois.
'--------------------------------
Sub Test()
Application.EnableEvents = True
End Sub
'--------------------------------
Tu n'as qu'à cliquer sur le lien hypertexte et ce dernier t'emmène directement vers la cellule de destination et la procédure écrit dans la cellule de destination la valeur de la cellule source.
Si rien ne se passe, c'est que les procédures événementielles ont été désactivées. Exécute la macro suivante une fois.
'-------------------------------- Sub Test() Application.EnableEvents = True End Sub '--------------------------------
Quand je clique sur le lien hypertexte en A7 de l'onglet "Feuil1" le lien hypertexte m'amène à la cellule A1 de l'onglet "Feuil2". La procédure permet d'inscrire dans la cellule A1, le texte de la cellule A7 de l'onglet "Feuil1". C'est ce que j'ai compris de ta demande.
Ceci s'applique à tous les liens hypertextes de la feuille "Feuil1".
Quand je clique sur le lien hypertexte en A7 de l'onglet "Feuil1"
le lien hypertexte m'amène à la cellule A1 de l'onglet "Feuil2".
La procédure permet d'inscrire dans la cellule A1, le texte de
la cellule A7 de l'onglet "Feuil1". C'est ce que j'ai compris de
ta demande.
Ceci s'applique à tous les liens hypertextes de la feuille "Feuil1".
Quand je clique sur le lien hypertexte en A7 de l'onglet "Feuil1" le lien hypertexte m'amène à la cellule A1 de l'onglet "Feuil2". La procédure permet d'inscrire dans la cellule A1, le texte de la cellule A7 de l'onglet "Feuil1". C'est ce que j'ai compris de ta demande.
Ceci s'applique à tous les liens hypertextes de la feuille "Feuil1".
