Sujet Précédent Sujet Suivant

Liens hypertexte dans excel

Résolu/Fermé
pigabo51 Messages postés 7 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 9 avril 2008 - 13 mars 2008 à 23:02
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 14 mars 2008 à 23:26
Bonjour,
dans excel, j'ai un fichier avec une feuille principale dans laquelle je crée des liens à partir de différentes cellules vers un certain nombre d'autres feuilles dans la cellule B2 (plusieurs liens de ma feuille principale pointent vers la même cellule d'une même feuille). Exemple, les liens des cellules A1, A2, A3 de la feuil1 pointent vers la cellule B2 de la feuil2. J'aimerai que lorsque je clique sur le lien de la cellule B2 de la feuil2 je retourne en feuil1!A1 si j'ai appelé de Feuil1!A1, en feuil1!A2 si j'ai appelé de A2, etc...

Quelle est la solution ?

Merci de votre réponse
A voir également:

6 réponses

Réponse 1 / 6
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 198
13 mars 2008 à 23:50
Salut,

En supposant que tes liens sur la feuille1 sont nommés lien1 et lien2, respectivement en A1 et A2 et pointent sur la cellule B2 de la feuille2, mets le code suivant dans la page de code de ta feuille1

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Name = "Lien1" Then
Worksheets("feuil2").[b2].Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Feuil1!A1", TextToDisplay:="Feuil1!A1"
End If
If Target.Name = "Lien2" Then
Worksheets("feuil2").[b2].Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Feuil1!A2", TextToDisplay:="Feuil1!A2"
End If

Tu peux en rajouter autant que tu veux, il faut juste adapter le code...
0
pigabo51 Messages postés 7 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 9 avril 2008 1
14 mars 2008 à 15:03
Bonjour,
merci beaucoup pour ta réponse mais je ne parviens pas à le faire fonctionner. J'ai bien entré le code en modifiant les noms mais lorsque je suis dans la cellule B2 de la feuille 2, j'aimerais en cliquant dessus revenir sur la cellule à partir de laquelle j'ai activé le lien hors ça ne marche pas.
Certainement que quelque chose m'échappe, je suis loin d'être un spécialiste excel.

Merci de ton aide
0
Réponse 2 / 6
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 198
14 mars 2008 à 15:10
Pourtant ici ça marche... Attention à bien respecter la casse de tes noms (Lien1 et non pas lien1)

Si tu y arrives pas je te joindrai un fichier exemple...
0
pigabo51 Messages postés 7 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 9 avril 2008 1
14 mars 2008 à 15:42
J'ai peut-être déjà envoyé ce message mais j'ai l'impresssion qu'il y a eu un problème alors je le renvoi de nouveau.
Cela serai sympa si tu pouvais m'envoyer un fichier exemple.

Merci encore
0
Réponse 3 / 6
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 198
14 mars 2008 à 16:06
Voila, voila...

http://www.cijoint.fr/cjlink.php?file=cj200803/cij10456969387308.xls
0
Réponse 4 / 6
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
14 mars 2008 à 21:34
bonjour

Afin de permettre une maintenance plus facile de cette fonctionnalité, je propose une macro figée sans maintenance et non liée au nom des liens et à mettre dans thisworkbook pour gérer toutes les feuilles. 
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
On Error Resume Next                ' contrôle erreur
    Set nom = Target.Parent.Name    ' nom émetteur
    If nom Is Nothing Then Exit Sub ' pas de nom on sort
    On Error GoTo 0                 ' gestion erreur remis
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    Mid(nom, 2), TextToDisplay:=Mid(nom, 8) ' position du lien retour
End Sub

Les cellules des liens hypertexte sur lesquels on veux revenir sont nommées.

Comme elles sont nommées on peut les déplacer et le lien continue à fonctionner.

Tous les liens hypertexte vers des cellules sans nom fonctionnement tout à fait normalement.

un petit exemple
0
pigabo51 Messages postés 7 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 9 avril 2008 1
14 mars 2008 à 22:02
Bonsoir,

j'essai cette solution car en effet, j'ai plusieurs feuilles dans lesquelles j'ai besoin de cette fonctionnalité.
C'est super de se sentir ainsi aidé. Encore merci à tous
0
pigabo51 Messages postés 7 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 9 avril 2008 1
14 mars 2008 à 23:18
Bonsoir,
ça fonctionne nickel, vraiment un grand merci pour votre aide !

A bientôt
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684 > pigabo51 Messages postés 7 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 9 avril 2008
14 mars 2008 à 23:26
bonjour

Très heureux de t'avoir rendu service et d'avoir appris un peu plus le fonctionnement de ce type de fonctionnalité.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 198
14 mars 2008 à 22:58
Cool, celle-là, gbinforme :-)

Bon week-end!
0
Réponse 6 / 6
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
14 mars 2008 à 23:17
bonjour Fxbrg,

C'est ton idée qui était un bon départ, mais comme je pense qu'une macro c'est fait pour être oublié car s'il faut la changer à chaque modification du classeur c'est difficile de l'utiliser, j'ai essayé de faire en sorte de récupérer la valeur plutôt que de la figer.

En ce qui concerne les liens hypertexte, je trouve que le côté utile est largement détruit par le côté bloqué : interdit de supprimer ou d'introduire une ligne, une colonne ou une cellule.

Et pourtant avec une macro, on peut faire en sorte que les liens suivent et là c'est beaucoup plus confortable.

Merci de ton idée et bon week-end
0

Discussions similaires

Insérer un lien hypertexte dans un post Linkedin
PhiL -
HeleneH -

7 réponses
Problème pour ouvrir les liens dans Outlook
baissaoui -
baissaoui -

0 réponse