Sommaire sur Excel

nije -  
pilas31 Messages postés 1878 Statut Contributeur -
Bonjour,

J'ai 100 onglets environ, et je veux faire un sommaire qui me permettent d'atteindre l'onglet de mon choix.
j'ai regardé les sujets sur " Créer un sommaire sur excel" et on m'a proposé la solution suivante

Sub Sommaire()
Dim i As Integer
i = 1
For Each sh In Sheets
If sh.Name <> "Sommaire" Then
With Sheets("Sommaire")
.Range("A" & i).Value = sh.Name
.Hyperlinks.Add anchor:=Range("A" & i), Address:="", SubAddress:=sh.Name & "!A"
End With
i = i + 1
End If
Next sh
End Sub

Cela me crée bien des liens, et les titres mais on me dit " Référence non valide" quand je veux suivre le lien.

Savez vous pourquoi ?

Merci
Configuration: Windows XP
Safari 532.0

3 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour,

    essaies
    ....SubAddress:=sh.Name & "!A1"
    0
  2. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Salut nije et michel,

    Moi je pense qu'il vaut mieux écrire comme cela : 

    Sub Sommaire()
Dim i As Integer
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Sommaire" Then
        With Sheets("Sommaire")
        .Range("A" & i).Value = Sheets(i).Name
        .Hyperlinks.Add anchor:=Range("A" & i), Address:="", SubAddress:=Sheets(i).Name & "!A1"
        End With
    End If
Next i
End Sub


    et au passage un clic bouton droit sur les petites flêches en bas à gauche de la fenêtre Excel donne un menu déroulant qui fait la même chose...

    A+
    0
  3. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Re ,

    Bon au temps pour moi, la correction de michel suffit bien sur, je suis allé chercher trop loin....

    A+
    0