Macro excel : lien hypertexte vers onglet
Tryssa
Messages postés
3
Statut
Membre
-
Jean -
Jean -
Bonjour,
Objectif:
1 - créer un nouvel onglet
2 - liste des noms en lien hypertexte des onglets du fichier
Où j'en suis dans ma macro:
Sub tableau_de_bord()
For Each sh In Sheets
i = i + 1
Cells(i, 1) = sh.Name
Next sh
End Sub
Je n'ai pour l'instant que le nom des onglets, il me les faudrait en lien hypertexte.
Merci pour votre aide et excellente journée !
Objectif:
1 - créer un nouvel onglet
2 - liste des noms en lien hypertexte des onglets du fichier
Où j'en suis dans ma macro:
Sub tableau_de_bord()
For Each sh In Sheets
i = i + 1
Cells(i, 1) = sh.Name
Next sh
End Sub
Je n'ai pour l'instant que le nom des onglets, il me les faudrait en lien hypertexte.
Merci pour votre aide et excellente journée !
A voir également:
- Macro excel : lien hypertexte vers onglet
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
3 réponses
Bonjour,
J'ai créé un onglet "Menu", avec un bouton qui lance le code suivant :
ATTENTION : marche sur Excel 2007, non testé sur versions antérieures
Sub Onglets()
Dim i, j As Integer
Dim MENU(5 To 50, 1 To 1) As Variant
Dim FeuilleActive As String
i = 1
FeuilleActive = ActiveSheet.Name
For i = 1 To ThisWorkbook.Sheets.Count
If Sheets(i).Name <> "Menu" Then
Cells(i + 4, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
' MENU(i + 4, 1) = Sheets(i).Name
End If
Next
'Sheets(FeuilleActive).Range("A5:A54") = MENU
End Sub
J'ai créé un onglet "Menu", avec un bouton qui lance le code suivant :
ATTENTION : marche sur Excel 2007, non testé sur versions antérieures
Sub Onglets()
Dim i, j As Integer
Dim MENU(5 To 50, 1 To 1) As Variant
Dim FeuilleActive As String
i = 1
FeuilleActive = ActiveSheet.Name
For i = 1 To ThisWorkbook.Sheets.Count
If Sheets(i).Name <> "Menu" Then
Cells(i + 4, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
' MENU(i + 4, 1) = Sheets(i).Name
End If
Next
'Sheets(FeuilleActive).Range("A5:A54") = MENU
End Sub
Hello,
personne ne sait comment transformer le sh.Name en lien hypertexte vers l'onglet ?
Merci de votre aide :)
personne ne sait comment transformer le sh.Name en lien hypertexte vers l'onglet ?
Merci de votre aide :)
J'en suis là finalement:
Sub Macro1()
Dim i As Integer
'
For i = 1 To Sheets.Count
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:="vers " & Sheets(i).Name
Next i
End Sub
Il me reste à ajouter de créer la liste dans un nouvel onglet, de le positionner en 1er et de le nommer "contenu".
Qqun sait faire ça ?
Merci !
Sub Macro1()
Dim i As Integer
'
For i = 1 To Sheets.Count
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:="vers " & Sheets(i).Name
Next i
End Sub
Il me reste à ajouter de créer la liste dans un nouvel onglet, de le positionner en 1er et de le nommer "contenu".
Qqun sait faire ça ?
Merci !
