Bonjour Cher ami(e)s!
J'ai un fichier contenant 60+ onglets et celui-ci est évolutif. Sur une feuille, j'ai créé une macro me permettant de faire la liste de tous les onglets avec un lien hypertexte en G1. Par contre, j'aimerais que lorsqu'arrivé à G30, il continue la liste en H1, et ainsi de suite jusquà H30, I1, etc...
voici ma macro :
----
Sub Sommaire()
Dim NbFeuilles As Long
Dim NmFeuille As String
Dim Cpt As Long
Dim ExtraitNom As String
Dim NmLien As String
NbFeuilles = Worksheets.Count
Application.ScreenUpdating = False
Range("G1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
For Cpt = 7 To NbFeuilles
NmFeuille = Sheets(Cpt).Name
ExtraitNom = (NmFeuille)
NmLien = "'" & NmFeuille & "'!A1"
Sheets("Menu").Select
Range("G1").Offset(Cpt - 7, 0).Value = ExtraitNom
ActiveSheet.Hyperlinks.Add Anchor:=Range("G1").Offset(Cpt - 7, 0), Address:="", SubAddress:=NmLien, TextToDisplay:=NmFeuille
Next Cpt
Application.ScreenUpdating = True
Range("A1").Select
End Sub
---
Je vous remercie de votre habituelle aide!
Éric
J'ai un fichier contenant 60+ onglets et celui-ci est évolutif. Sur une feuille, j'ai créé une macro me permettant de faire la liste de tous les onglets avec un lien hypertexte en G1. Par contre, j'aimerais que lorsqu'arrivé à G30, il continue la liste en H1, et ainsi de suite jusquà H30, I1, etc...
voici ma macro :
----
Sub Sommaire()
Dim NbFeuilles As Long
Dim NmFeuille As String
Dim Cpt As Long
Dim ExtraitNom As String
Dim NmLien As String
NbFeuilles = Worksheets.Count
Application.ScreenUpdating = False
Range("G1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
For Cpt = 7 To NbFeuilles
NmFeuille = Sheets(Cpt).Name
ExtraitNom = (NmFeuille)
NmLien = "'" & NmFeuille & "'!A1"
Sheets("Menu").Select
Range("G1").Offset(Cpt - 7, 0).Value = ExtraitNom
ActiveSheet.Hyperlinks.Add Anchor:=Range("G1").Offset(Cpt - 7, 0), Address:="", SubAddress:=NmLien, TextToDisplay:=NmFeuille
Next Cpt
Application.ScreenUpdating = True
Range("A1").Select
End Sub
---
Je vous remercie de votre habituelle aide!
Éric