Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro : liste lien hypertexte des onglets

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tryssa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tryssa

XLDnaute Nouveau
Bonjour,

J'aimerais créer une macro qui :

1) créer un nouvel onglet
2) le positionne en 1er
3) le nomme "contenu"
4) y créé la liste avec lien hypertexte de tous les onglets présents dans le fichier

Voici où j'en suis :
Sub contenu()
For Each sh In Sheets
i = i + 1
Cells(i, 1) = sh.Name
Next sh
End Sub

Merci pour votre aide !
 
Trier par date Trier par votes
Re : macro : liste lien hypertexte des onglets

bonjour tryssa,

voici une solution :

Code: 
Sub test()
Dim curSht As Worksheet
With ThisWorkbook.Sheets.Add(before:=ThisWorkbook.Sheets(1))
    For Each curSht In ThisWorkbook.Sheets
        If .Name <> curSht.Name Then .Hyperlinks.Add Anchor:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0), Address:="", SubAddress:= _
        curSht.Name & "!A1", TextToDisplay:=curSht.Name
    Next
End With
End Sub

a+
 
Vote positif 0 Vote négatif
Re : macro : liste lien hypertexte des onglets

En partant de la réponse de mromain, voici ma macro finale:

Sub Page_de_garde()
ActiveWorkbook.Sheets.Add before:=ThisWorkbook.Sheets(1)
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
Rows("1:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Contenu du fichier"
Range("A2").Select
ActiveCell.FormulaR1C1 = ActiveWorkbook.Name
Range("A4").Select
ActiveCell.FormulaR1C1 = "Onglet"
Range("B4").Select
ActiveCell.FormulaR1C1 = "Descriptif"
Range("A1:B1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A2:B2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("F5").Select
ActiveWindow.DisplayGridlines = False
Range("A1:B2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("A4:B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Selection.Font.Bold = True
Range("A1:B1").Select
Selection.Font.Bold = True
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
144
job75
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
588
vgendron
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
617
Phil69970
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
203
patricko-13
P
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
470
fanch55
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
147
Phil69970
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
200
sylvanu
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
451
micie1509
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
540
jeff1494
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
472
Phil69970
J
  • Question Question
Microsoft 365 Ajouter une colonne
Réponses
0
Affichages
484
Juliopapadopulos
J
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
179
kiki29
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
413
Webperegrino
W
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
492
telemarrk
T
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
509
tnion
T
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
561
job75
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
312
thunder23
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
292
fanch55
J
  • Question Question
XL 2021 Lien hypertexte dans forme rectangle
Réponses
2
Affichages
464
Phil69970
G
  • Question Question
Microsoft 365 Enregistrer les onglets d'un fichier Excel séparément.
Réponses
2
Affichages
566
kiki29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…