Sommaire sous forme de tableau

Bonsoir

j'ai une macro qui me crée un sommaire de tous mes onglets es liens s'affichent en colonne est il possible de les afficher sous forme de tableau comme dans la feuil1

Salut Max47

T'as déjà la réponse

[a1] = "SOMMAIRE DU CLASSEUR :"

    Dim Colonne As Integer
    Colonne = 5

    Dim feuille As Worksheet
    For Each feuille In Worksheets
        ActiveSheet.Hyperlinks.Add anchor:=Cells(13, Colonne), Address:="", SubAddress:="'" & feuille.Name & "'!A1", TextToDisplay:=feuille.Name
        Colonne = Colonne + 1
    Next
    Call tableaumiseenforme
End Sub

Par contre tu dois revoir ta mise en forme du tableau

Bonsoir max47,

Re Jean-Paul,

Pourquoi effacer la feuille SOMMAIRE pour la recréer ensuite ?

Une proposition...en conservant ton tableau...ctrl + e pour lancer la macro....

Ligne/ligne

Colonne/colonne

Cordialement,

Super tout a fait ce que je cherchais la version 7 correspond tout à fait j’effaçais car le nombre d'onglets peut varier mais avec ta version tout marche nickel merci beaucoup je vais pouvoir continuer à avancer

Cordialement

Max

petite question complémentaire je souhaiterai que le sommaire m'affiche les feuilles mais après la "feuil1" donc n'affiche pas "sommaire et "feuil1"

merci

Bonjour max47, le forum,

je souhaiterai que le sommaire m'affiche les feuilles mais après la "feuil1" donc n'affiche pas "sommaire et "feuil1"

J'ai remplacé

If feuille.Name <> "SOMMAIRE" Then

par

If feuille.Name <> "SOMMAIRE" And feuille.Name <> "Feuil1" Then

Une variante...

Sub creerSommaire()

    If Worksheets(1).Name = "SOMMAIRE" Then
        Application.DisplayAlerts = False
         Cells.ClearContents
        Application.DisplayAlerts = True
    End If

    [a1] = "SOMMAIRE DU CLASSEUR :"

    Dim Colonne As Integer
    Colonne = 6
    ligne = 4

    Dim feuille As Worksheet
    For Each feuille In Worksheets
     Select Case feuille.Name
      Case Is = "SOMMAIRE", "Feuil1"   'feuilles à exclure
      Case Else
        ActiveSheet.Hyperlinks.Add anchor:=Cells(ligne, Colonne), Address:="", SubAddress:="'" & feuille.Name & "'!A1", TextToDisplay:=feuille.Name
        Colonne = Colonne + 1
        If Colonne = 13 Then Colonne = 6: ligne = ligne + 1
     End Select
    Next
End Sub

Cordialement,

tout à fait ce que je cherchais merci

bonne fêtes

cordialement

Max