Créer un sommaire des onglets excel
Résolu/Fermé
leyankeedu52
Messages postés
15
Date d'inscription
jeudi 18 octobre 2012
Statut
Membre
Dernière intervention
25 octobre 2012
-
22 oct. 2012 à 13:21
FOnz - 2 avril 2018 à 08:09
FOnz - 2 avril 2018 à 08:09
A voir également:
- Créer un sommaire sur excel
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un compte instagram sur google - Guide
- Créer un groupe whatsapp - Guide
- Créer liste déroulante excel - Guide
2 réponses
leyankeedu52
Messages postés
15
Date d'inscription
jeudi 18 octobre 2012
Statut
Membre
Dernière intervention
25 octobre 2012
13
22 oct. 2012 à 16:49
22 oct. 2012 à 16:49
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.
19 oct. 2015 à 17:57
Est ce possible?
D'avance merci de tes compétences
28 avril 2017 à 20:27
2 avril 2018 à 08:09