Microsoft 365 lien hypertexte variable vers les onglets du classeur

CHAPELLE35 · 12 Décembre 2023

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

chris · 12 Décembre 2023

Bonjour

CHAPELLE35 · 12 Décembre 2023

Bonjour chris,
merci pour la réponse mais le lien hypertexte de ton fichier ne fonctionne pas j'ai une fenêtre qui s'ouvre "Microsoft a identifié un problème potentiel de sécurité" puis "impossible d'ouvrir le fichier spécifié"
Pb sur mon ordi ?
Merci

JHA · 12 Décembre 2023

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

CHAPELLE35 · 12 Décembre 2023

Bonjour JHA,
merci çà fonctionne parfaitement, j'aimerai également insérer un nom convivial comme "détail ville" mais je ne vois pas ou l'insérer dans la formule, à chaque fois j'ai "nombre trop important d'arguments.
merci

JHA · 12 Décembre 2023

Bonjour à tous,

VB:

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

JHA

CHAPELLE35 · 12 Décembre 2023

Merci encore, une dernière précision si je renomme le fichier, du coup il faut modifier le nom dans la formule à chaque changement de nom ?

Totom_mrs · 28 Décembre 2023

JHA à dit:
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

JHA · 28 Décembre 2023

Bonjour à tous,

Peut-être...

JHA

Totom_mrs · 2 Janvier 2024

JHA à dit:
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é.

job75 · 2 Janvier 2024

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+

Totom_mrs · 3 Janvier 2024

job75 à dit:
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 ^^

job75 · 3 Janvier 2024

Totom_mrs à dit:
je n'y arrive pas

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.

Totom_mrs · 3 Janvier 2024

job75 à dit:
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 !!!

Microsoft 365 lien hypertexte variable vers les onglets du classeur

CHAPELLE35

XLDnaute Nouveau

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

CHAPELLE35

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

CHAPELLE35

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

CHAPELLE35

XLDnaute Nouveau

Totom_mrs

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Totom_mrs

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Totom_mrs

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Totom_mrs

XLDnaute Nouveau

Discussions similaires