Créer un sommaire des onglets excel
Résolu
leyankeedu52
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
FOnz -
FOnz -
Bonjour,
Selon vous est il possible de créer au début d'un classeur excel un sommaire des onglets de celui?
si oui cela est il possible avec une mise à jour automatique du sommaire en cas d'ajout d'onglets
Merci d'avance de vos réponses
Amicalement
Jack
Selon vous est il possible de créer au début d'un classeur excel un sommaire des onglets de celui?
si oui cela est il possible avec une mise à jour automatique du sommaire en cas d'ajout d'onglets
Merci d'avance de vos réponses
Amicalement
Jack
A voir également:
- Sommaire dynamique excel
- Tableau croisé dynamique excel exemple - Guide
- Liste déroulante excel - Guide
- Sommaire word - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
2 réponses
ta solution n'est pas mal mais j'ai trouvé une solution avec une macro finalement.
voici la syntaxe.
* créer un onglet menu et exécuter la macro dedans.
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
* si on ajoutes des onglets la mise à jour du sommaire se fait en rééxecutant la macro dans l'onglet menu.
voici la syntaxe.
* créer un onglet menu et exécuter la macro dedans.
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
* si on ajoutes des onglets la mise à jour du sommaire se fait en rééxecutant la macro dans l'onglet menu.
Est ce possible?
D'avance merci de tes compétences