Excel: nom des onglets en lien hypertexte

Question

Bonjour,

J'ai crée un fichier excel avec une bonne centaine d'onglets. Pour faciliter l'utilisation de ce fichier, j'ai conçu dans le premier onglet un sommaire qui, grâce à des liens hypertexte, renvoie directement sur les onglets.
Par exemple:
Lien N°1 envoie vers l'onglet 1
Lien N°2 envoie vers l'onglet 2
Lien N°3 envoie vers l'onglet 3
Lien N°4 envoie vers l'onglet 4
Lien N°5 envoie vers l'onglet 5
Lien N°6 envoie vers l'onglet 6
Etc.
Cependant, en changeant le nom de mes onglets, je me suis rendu compte que les liens ne fonctionnaient plus: ARG!!
Quelqu'un aurait-il une solution facile (si possible pas de VBA) pour:
- soit remplacer facilement les liens hypertextes
- soit faire en sorte qu'excel reconnaisse le lien même si le nom de l'onglet change

Merci d'avance pour votre aide

pilas31 · Accepted Answer

Bonjour,

Une idée naïve :

En bas à gauche de la fenêtre Excel, si on fait clic bouton  droit (sur les flêches) apparait une liste popup de navigation avec le nom de tous les onglets et si on clique on y accéde directement.

Ce n'est pas la fonction souhaitée ?

A+

Mike-31 · Answer

Salut,

Dans chaque onglet tu nommes une cellule exemple  A1 pour l'onglet titi, pour l'onglet deux toto etc ...

dans ton sommaire à la place d'associer le lien à un onglet tu fais clis droit sur le premier lien et Lien Hypertexte/ce qui va t'ouvrir la boite de dialogue Insérer un lien  ou modifier un lien si le lien est encore actif/Clic sur Emplacement dans ce document/dans la rubrique ou sélectionner un emplacement dans ce document tu remarqueras Référence de cellule avec le nom de tes onglets et au dessous Noms définis avec la liste de tes cellules nommées, il suffit d'attribuer un lien par cellule nommée, à partir de la tu pourras renommer tes onglets sans affecter le lien

Pilgou · Answer

Merci à tout les 2.
La réponse de Mike me plaît +, car cela me permet une naviguation plus rapide. Même si elle va me demander + de travail.
Mais je ne connaissais pas non plus l'astuce du clic droit sur les flèches. (sympa aussi)

++

michel_m · Answer

Bonjour

ta liste d'onglet de A1 à An
dans B1
=LIEN_HYPERTEXTE("[nom du classeur.xls]'"&A1&"'!A1";"visualiser")
et double clic sur le carré en bas et à droite de B1
ca suit si tu changes le nom d'onglet en colonne A

Mike-31 · Answer

Re,

Bien vue Michel_m, je l'avais zappée celle la.

Autre solution sans avoir à créer de liste de lien Hypertexte, il suffit de faire un clic droit à gauche sur la barre d'onglet d'Excel au niveau des flèches et la liste des onglets s'affiche, il ne reste plus qu'à cliquer sur la feuille souhaitée.

Je rectifie, je n’ai pas fait attention que cette solution avait été donnée par pilas31 post1

michel_m · Answer

Re mike, pilas
Pour le fun
 (je trouve ca + élégant que la flèche de Pilas, mais "c'est vous qui voyez")
a placer dans Thisworkbook

Private Sub Workbook_Open()
Application.CommandBars("Workbook tabs").ShowPopup
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars("Workbook tabs").ShowPopup 500, 300
End Sub

500 et 300 donnent la poisition sur l'écran

Mike-31 · Answer

Re,

J'adore ce genre de discussion qui est à une véritable révision
de nos connaissances

Dans la même optique que Michel_m, à placer dans la Thisworkbook, ce code affichera sur un double clic la liste Popup quelque soit la feuille, ce qui peut être pratique pour la navigation

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.CommandBars("Workbook tabs").ShowPopup
End Sub

-
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

pilas31 · Answer

Bonsoir,

Alors là ! Chapeau à vous deux, j'avoue que c'est du grand art (à garder précieusement) ....

A+ sur un autre topic

Mike-31 · Answer

Salut Pilas,

Au départ Pilgou souhaitait éviter le VBA. Mais si on l’utilise cela ouvre des possibilités comme les codes proposés par Michel_m et moi-même. Pour poursuivre dans cette voie et si l’on souhaite avoir une liste de lien hypertexte, ce code place dans les contrôles d’un bouton ou de feuille ou dans la Thisworkboox créera automatiquement une liste de lien 

Dim i As Byte
For i = 2 To Sheets.Count
Range("A" & i - 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Worksheets(i).Name & "!A1", TextToDisplay:=Worksheets(i).Name
Next i

Il est également possible de créer cette liste dans un combobox utilisable dans toutes les feuilles

Mike-31 · Answer

Salut Pilas,

Non si une astuce existe déja, il suffit de la compléter sans oublier de siter les auteurs, je jetterai un coup d'oeil et demanderai à Michel_m s'il est d'accord que son code figure dans la liste

michel_m · Answer

Bonjour,

Moi je veux bien,mais Aquarelle, modérateur CCM,  m'avait fait sèchement  remarquer qu'il il y avait SA solution dans les astuces après que j'eus présenté la solution popoup.donc, méfiez vous quand m^me
 Précision: cette solution popup n'est pas de moi; c'est une astuce assez connue que j'avais trouvé en son temps (où et quand ?) sur ze web

michel_m · Answer

salut Pilas,
je 'ai pas dit que cette astuce était mauvaise, loin s'en faut... D'ailleurs ca m'arrive assez souvent  de renvoyer un demandeur vers la rubrique "astuces"

Bon appétit.

Pilgou · Answer

Re-bonjour à tous!

Quel débat! 
Michel_m, j'ai essayé 
"ta liste d'onglet de A1 à An 
dans B1 
=LIEN_HYPERTEXTE("[nom du classeur.xls]'"&A1&"'!A1";"visualiser") 
et double clic sur le carré en bas et à droite de B1 
ca suit si tu changes le nom d'onglet en colonne A "

et j'ai fini pas réussir :D (comprendre^^)
merci!

michel_m · Answer

Content pour toi
Bonne semaine

Excel: nom des onglets en lien hypertexte

14 réponses

Discussions similaires

Newsletters