Sujet Précédent Sujet Suivant

Sommaire sur Excel

Fermé
nije - 27 janv. 2010 à 17:59
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 27 janv. 2010 à 18:30
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
A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
27 janv. 2010 à 18:15
bonjour,

essaies
....SubAddress:=sh.Name & "!A1"
0
Réponse 2 / 3
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
27 janv. 2010 à 18:26
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 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
27 janv. 2010 à 18:30
Re ,

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

A+
0