Sujet Précédent Sujet Suivant

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

3 réponses

Réponse 1 / 3
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour,

essaies
....SubAddress:=sh.Name & "!A1"
0
Réponse 2 / 3
pilas31 Messages postés 1878 Statut Contributeur 647
 
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
Réponse 3 / 3
pilas31 Messages postés 1878 Statut Contributeur 647
 
Re ,

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

A+
0