Microsoft 365 lien hypertexte variable vers les onglets du classeur

CHAPELLE35

XLDnaute Nouveau
Bonjour,
ma demande concerne la possibilité de créer un lien hypertexte variable (sans VBA de préférence) à partir d'une cellule qui change de valeur après un choix d'une liste déroulante.
Selon le nom de la cellule, le lien hypertexte renvoi vers l'onglet correspondant.
Ci-joint un modèle
Un grand merci pour votre aide
 

Pièces jointes

  • LIEN HYPERTEXTE.xlsx
    13.8 KB · Affichages: 4

JHA

XLDnaute Barbatruc
Bonjour à tous,

J'ai modifié la formule de chris ;) en mettant
=LIEN_HYPERTEXTE("[LIEN HYPERTEXTE2.xlsx]"&RECHERCHEV(E2;$A$1:$B$3;2;0)&"!A1";RECHERCHEV(E2;$A$1:$B$3;2;0))

JHA
 

Pièces jointes

  • LIEN HYPERTEXTE2.xlsx
    13.7 KB · Affichages: 14

Totom_mrs

XLDnaute Nouveau
Bonjour à tous,

VB:
=LIEN_HYPERTEXTE("[LIEN HYPERTEXTE2.xlsx]"&RECHERCHEV(E2;$A$1:$B$3;2;0)&"!A1";"Détail ville")

JHA
Bonjour, j'ai trouvé cette formule très utile. J'aurais souhaité l'adapter à mon cas.
Je cherche à insérer mes Hyperliens DANS une colonne de numéros afin qu'ils pointent vers des onglets portant le même numéro.

Dans le projet de JHA, il faut choisir dans une liste déroulante pour rejoindre l'onglet.
Je souhaiterai que l'hyperlien se mette sur la valeur "ROME" par exemple pour pointer sur l'onglet "ROME".

Je vous joins une petite capture d'écran de ce que je fais aujourd'hui à la main ... mais j'ai 300 fiches à pointer et de régulières modifications :(

Merci à tous
 

Pièces jointes

  • Capture d'écran 2023-12-28 152655.png
    Capture d'écran 2023-12-28 152655.png
    80.5 KB · Affichages: 9

Totom_mrs

XLDnaute Nouveau
Bonjour à tous,

Peut-être...

JHA
Bonne année !!!

Merci pour cette réponse, mais ce n'est pas tout à fait ce que j'essaie de faire (sans y arriver).

Dans le fichiers LIEN HYPERTEXTE3, mon objectif se définirait comme suit:
1) je créer une liste de Noms de villes
2) je génères automatiquement les onglets éponymes des Noms de villes
3) j'insère un lien hypertexte sous chaque nom de ville qui pointe vers l'onglet relatif.


Je vous joins mon fichier de travail, ce sera peut être plus clair avec toutes mes références.
Onglets
VBA: mes bricolages en VBA (brouillons)
PROGRAMMATIC SYNTHESIS: Numéro de fiche (Sheets)
MODEL: le modèle d'onglet que je veux générer
000: Page de présentation avec index des liens hypertextes
001=> 314 : les onglets générés automatiquement.

Mon objectif est de pouvoir communiquer de façon présentable les sheets 000 à 314 et garder à mon niveau une synthèse plus facile à travailler.

J'ai réussi à générer les onglets à partir de ma numérotation.
J'ai réussi à générer un index pointant sur chaque onglet généré.
Mais je n'arrive NI à générer des liens hypertextes automatiquement dans ma colonne "SHEETS" ni à enchainer automatiquement toute la manip :

Depuis ma synthèse : générer les onglets depuis le modèle, les nommer comme sur ma liste, engendrer un index et boucler dans ma synthèse avec un lien hypertexte pointant sur l'onglet dédié.
 

Pièces jointes

  • LIEN HYPERTEXTE3.xlsx
    14.3 KB · Affichages: 4
  • Fiche de synthese programmatique V3.xlsm
    947 KB · Affichages: 8

job75

XLDnaute Barbatruc
Bonsoir Totum_mrs, le fil,

S'il s'agit de créer des liens hypertextes en 1ère colonne de la feuille "PROGRAMMATIC SYNTHESIS" il suffit de placer cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Activate()
Dim c As Range
Application.ScreenUpdating = False
With [Tableau2[Sheet]]
    .Hyperlinks.Delete 'RAZ
    For Each c In .Cells
        Me.Hyperlinks.Add c, "", "'" & c & "'!A8"
    Next
    .HorizontalAlignment = xlCenter 'cadrage
End With
End Sub
Elle se déclenche quand on active la feuille.

A+
 

Pièces jointes

  • Fiche de synthese programmatique V3.xlsm
    901.8 KB · Affichages: 6

Totom_mrs

XLDnaute Nouveau
Bonsoir Totum_mrs, le fil,

S'il s'agit de créer des liens hypertextes en 1ère colonne de la feuille "PROGRAMMATIC SYNTHESIS" il suffit de placer cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Activate()
Dim c As Range
Application.ScreenUpdating = False
With [Tableau2[Sheet]]
    .Hyperlinks.Delete 'RAZ
    For Each c In .Cells
        Me.Hyperlinks.Add c, "", "'" & c & "'!A8"
    Next
    .HorizontalAlignment = xlCenter 'cadrage
End With
End Sub
Elle se déclenche quand on active la feuille.

A+
je n'y arrive pas :(

Excel me retourne "erreur de caractérisation du mot clé Me"
tant pis je vais finir à la main ... je n'arrive pas à utiliser correctement VBA. Ca prouve qu'il faut apprendre quelques bases avant de se lancer ^^
 

Totom_mrs

XLDnaute Nouveau
J'ai bien précisé que la macro doit être placée dans le code de la feuille "PROGRAMMATIC SYNTHESIS"(clic droit sur l'onglet et Visualiser le code).

C'est ce que j'ai fait sur le fichier que j'ai joint au post #11.
Wahou vous êtes trop fort !
Merci j'étais tellement en train de déprimer avec toutes mes fonctions, mes liens, mes renvois qui ne se mettent pas à jour .... merci !!!
 

Discussions similaires

Statistiques des forums

Discussions
313 209
Messages
2 096 240
Membres
106 541
dernier inscrit
edf