Excel macro : Liens hypertextes automatiques et différents
dqerfg
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Excel macro : Liens hypertextes automatiques et différents
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
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