je souhaite créer une feuille "e;Sommaire"e; qui résume tous les onglets disponible dans le classeur et affiche devant chaque nom de feuille une valeur précise récupérée sur cette dernière.
Il faudrait que ce sommaire se mette à jour automatiquement quand de nouvelles feuilles sont crées
Idéalement (mais pas nécessaire) les noms des feuilles soient des liens vers ces feuilles
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ahber
Le samedi 09 Juin 2018 à 22:58 par Ahber :
Bonjour, je souhaite créer une feuille "e;Sommaire"e; qui résume tous les onglets disponible dans le classeur et affiche devant chaque nom de feuille une valeur précise récupérée sur cette dernière. Il faudrait que ce sommaire se mette à jour automatiquement quand de nouvelles feuilles sont crées Idéalement (mais pas nécessaire) les noms des feuilles soient des liens vers ces feuilles Quelqu'un pourrait il m'aider ? Merci d'avance
J'ai trouvé ce code qui permet d'insérer les noms des feuilles avec des liens vers ces dernières, il va manquer juste la partie d'insérer une valeur vis a vis chaque nom de feuille 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
Le samedi 09 Juin 2018 à 22:58 par Ahber :
> Bonjour,
>
> je souhaite créer une feuille "e;Sommaire"e; qui résume
> tous les onglets disponible dans le classeur et affiche devant chaque nom de
> feuille une valeur précise récupérée sur cette
> dernière.
>
> Il faudrait que ce sommaire se mette à jour automatiquement quand de
> nouvelles feuilles sont crées
>
> Idéalement (mais pas nécessaire) les noms des feuilles soient des
> liens vers ces feuilles
>
> Quelqu'un pourrait il m'aider ?
>
> Merci d'avance
J'ai trouvé ce code qui permet d'insérer les noms des feuilles avec des liens vers ces dernières, il va manquer juste la partie d'insérer une valeur vis a vis chaque nom de feuille
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
Bonjour, je souhaite créer une feuille "e;Sommaire"e; qui résume tous les onglets disponible dans le classeur et affiche devant chaque nom de feuille une valeur précise récupérée sur cette dernière. Il faudrait que ce sommaire se mette à jour automatiquement quand de nouvelles feuilles sont crées Idéalement (mais pas nécessaire) les noms des feuilles soient des liens vers ces feuilles Quelqu'un pourrait il m'aider ? Merci d'avance
J'ai trouvé ce code qui permet d'insérer les noms des feuilles avec des liens vers ces dernières, il va manquer juste la partie d'insérer une valeur vis a vis chaque nom de feuille 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
