Excel macro : Liens hypertextes automatiques et différents
dqerfg
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Je crée un fichier avec une feuille principale et plusieurs feuilles de "renseignements". J'ai fait une macro qui ajoute un nom à la fin de ma première colonne et crée une feuille de renseignement de même nom.
Je souhaiterais que ma macro ajoute aussi un lien hypertexte sur le nom en première page, dirigeant ainsi vers sa feuille de renseignement.
Cependant je ne sais pas comment automatiser la création de liens hypertextes différents.
Pouvez-vous m'aider?
Windows / Edge 115.0.1901.183
1 réponse
-
Bonjour,
Faire Alt F11 sur ta feuille principale pour accéder à l'éditeur
La macro se déclenchera au double clic sur le nom de la feuille à créer
Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Sh As Worksheet Set Sh = Worksheets.Add(After:=Worksheets(Worksheets.Count)) Sh.Name = Target.Value 'lien hypertexte vers nouvelle feuille Sheets("Feuil1").Select 'adapter le nom de la feuille principale ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ Target.Value & "!" & Target.Address, TextToDisplay:=Target.Value End Sub
