Liens hypertexte vers onglets du même classeur [Résolu/Fermé]

- - Dernière réponse : PapyLuc51
Messages postés
2236
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
6 décembre 2019
- 31 mai 2014 à 10:03
Bonjour,

J'ai une feuille excel où il y a toutes les villes de mon département (la première). Et plusieurs autres où il y a une ville par feuilles (de la 2ème jusqu'à la 707ème).

Sur la feuille où il y a toutes les villes, je dois faire un lien hypertexte vers chacun des autres onglets.

Je dois faire la manipulation 707 fois. Il n'y a pas un moyen où je pourrais faire ça d'une seule fois ?


Mettre un lien hypertexte pour chaque ville, et que ce lien soit sur la même ville (en onglet).

J'espère m'avoir fait comprendre le plus clairement.

Merci d'avance pour votre aide.

M.
Afficher la suite 

6 réponses

Messages postés
14891
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 décembre 2019
1195
0
Merci
Bonjour,
Pas besoin de lien hypertexte si les onglets ont le nom des villes comme nom, autant faire un code comme ceci:

a mettre dans le VBA de la premiere feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'colonne A, une seule cellule select et pas vide
If Not Intersect(Target, Range("a:a")) Is Nothing And Target.Count = 1 And Target <> "" Then
'active l'onglet du nom contenu dans la cellule selectionnee
Worksheets(Target.Value).Activate
End If
End Sub
Messages postés
9175
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
11 novembre 2019
1666
0
Merci
Bonjour

Un exemple via une macro
http://cjoint.com/?3EDlzRELM9N

Cdlmnt
Messages postés
16993
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
8 décembre 2019
3712
0
Merci
Bonjour,

Il est possible de le faire par formule,

exemple colonne A entre A1 et A1000 par exemple nom des onglets , en colonne B il est possible de définir une cellule de destination sur la feuille sélectionnée et en colonne C cellule C1 cette formule

=STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"));SOMME(TROUVE({"[";"]"};CELLULE("filename"))*{-1;1})+1)&"'"&A1&"'!"&B1
incrémenter cette formule sur la hauteur de la liste

créer une liste de validation exemple en H1avec la liste des onglets listée en colonne A

=LIEN_HYPERTEXTE(INDEX(C1:C1000;EQUIV(H1;A1:A1000;0));H1)

Pas le temps de faire dans l'immédiat un fichier mais si besoin dans la soirée sans problème
Messages postés
16993
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
8 décembre 2019
3712
0
Merci
Bonjour le fil,

Et encore une discussion qui n'aura passionnée que les intervenants ?
Messages postés
2236
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
6 décembre 2019
453
0
Merci
Bonjour Mike-31

Je viens d'essayer tes formules ; pour celle de la colonne "C" ça marque #VALEUR! et comme je n'arrive pas à comprendre ce qui cloche j'aimerai plus d'explications.

Ce que j'ai fait selon tes explications
A1 = le nom de la feuille
B1 = la cellule de destination
C1 = ta formule =STXT (en copier/coller)
H1 = la liste de validation
J'ai mis la formule =LIEN_HYPERTEXTE.... EN I1 car tu n'indiques pas où il faut la mettre.
Toujours est-il que puisque C1 marque #VALEUR! le lien en I1 marque aussi #VALEUR!

Ai-je bien compris tout le cheminement ?

Cordialement
Messages postés
16993
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
8 décembre 2019
3712
0
Merci
Re,

Regarde le fichier joint, les colonnes A, B et C peuvent être masquées, C14 à C25 j'ai ajouté une gestion de cellule vide.
il faut saisir les formules sans tenir compte du message d'erreur à la création, enregistrer et ouvrir le fichier pour la prise en compte des onglets si les formules sont bonne, le message d'erreur #VALEUR! laisse place à l'adresse du lien

en H2 dans l'exemple la liste de validation et en I2 le lien actif

http://cjoint.com/?DEFjSClpMcZ
PapyLuc51
Messages postés
2236
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
6 décembre 2019
453 -
OK c'est bon, après avoir fermé ce que j'avais fait, tout est normal à la réouverture.

Merci Mike-31

Cordialement