J'aimerais savoir s'il est possible de créer plusieurs liens hypertextes dans différentes cellules. Je pense que oui mais je m'explique mieux:
J'ai un classeur excel qui me sert de lexique FR-ANG avec 2 feuilles: 1ère: Français - 2ème: Anglais
J'aimerais que lorsque je clique sur A1 Feuil-Français, j'arrive sur A1 Feuil-Anglais (et cela pour toute la feuille... de A à Z de la feuille Français et de A à Z de la feuille Anglais.
Sachant que le texte doit être respectif à chaque cellule.
Ce qui m'évite de faire un lien hypertexte une cellule par une cellule -__-' Qui est assez long à effectuer!
J'aimerais que lorsque je clique sur A1 Feuil-Français, j'arrive sur A1 Feuil-Anglais (et cela pour toute la feuille... de A à Z de la feuille Français et de A à Z de la feuille Anglais.
Sachant que le texte doit être respectif à chaque cellule.
Bonsoir,
Es tu véritablement sérieux ?!....ou alors j'ai raté qq chose mais dans ce cas ton fichier n'aide pas non plus !
Je passe la main à plus téméraire !
kjin
Re : Création de plusieurs liens hypertextes dans plus cellules
J'ai du mal à m'expliquer je crois ^^
Je recommence:
Dans ma feuille 1 (français), il y aura dans chaque cellule un mot (allant de la colonne A à la colonne Z).
Dans ma feuille 2 (anglais), il y aura dans chaque cellule la traduction du mot de la feuille français.
(ex: feuille FR colonne M cellule 1 "maison" -------> feuille ANG colonne M cellule 1 "house")
J'aimerais donc que lorsque je clique sur une cellule de la feuille FR (ici "maison"), je me retrouve sur le cellule de traduction (donc ici feuille ANG - M1 "house").
J'aimerais savoir comment faire, mais tout en évitant de faire la manipulation pour chaque cellule ! Donc la faire une fois et l'étendre à toute ma feuille si cela est possible....
Cette fonction fonctionne bien, je te remercie.
Mais le pb est que ducoup ça m'écrit le même mot sur chaque cellule lorsque j'étends la fonction vers le bas
Re : Création de plusieurs liens hypertextes dans plus cellules
bonsoir,
Dans le module de chaque feuille
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
Application.Goto Sheets("ANG").Range(Target.Address(0, 0)), True
End If
End Sub