Excel macro : Liens hypertextes automatiques et différents Fermé

Question

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

cs_Le Pivert · Answer

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

Excel macro : Liens hypertextes automatiques et différents

1 réponse

Discussions similaires