Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel CREER UN SOMMAIRE DES FEUILLES

CREER UN SOMMAIRE DES FEUILLES

7 réponses
Avatar
Yapi
Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne et,
le must, faire en sorte que les nouvelles feuilles s'insèrent automatiquement?

Merci pour vos éventuelles lumières...

Yapi
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Pour créer le sommaire :

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

Pour les nouvelles feuilles :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
ActiveSheet.Hyperlinks.Add Range("A" & Ligne), SubAddress = Sh.Name
End Sub

Cordialement.
Daniel
"Yapi" a écrit dans le message de news:

Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon
sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne
et,
le must, faire en sorte que les nouvelles feuilles s'insèrent
automatiquement?

Merci pour vos éventuelles lumières...

Yapi


Avatar
Yapi
OK Daniel,

J'arrive bien à obtenir tout mes noms d'onglets en bleu surligné mais
lorsque je clique sur le lien le message suivant apparait : "impossible
d'ouvrir le fichier spécifié"
Je n'arrive pas à trouver mon bug...
As-tu une idée?
Merci


Bonjour.
Pour créer le sommaire :

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

Pour les nouvelles feuilles :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
ActiveSheet.Hyperlinks.Add Range("A" & Ligne), SubAddress = Sh.Name
End Sub

Cordialement.
Daniel
"Yapi" a écrit dans le message de news:

Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon
sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne
et,
le must, faire en sorte que les nouvelles feuilles s'insèrent
automatiquement?

Merci pour vos éventuelles lumières...

Yapi







Avatar
Nicolas TNT
Bonjour

Je viesn de tester sous Excel 2000

La fonction Sommaire fonctionne correctement, par contre la fonction
Nouvelle feuille ne fonctionne pas


Bonjour.
Pour créer le sommaire :

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

Pour les nouvelles feuilles :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
ActiveSheet.Hyperlinks.Add Range("A" & Ligne), SubAddress = Sh.Name
End Sub

Cordialement.
Daniel
"Yapi" a écrit dans le message de news:

Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon
sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne
et,
le must, faire en sorte que les nouvelles feuilles s'insèrent
automatiquement?

Merci pour vos éventuelles lumières...

Yapi







Avatar
Yapi
En fait si j'affine la source de mon problème, j'ai dans le lien le chemin
jusqu'au dossier parent mais il me manque le nom du classeur suivi de la
feuille en terminaison lesquels sont remplacés par "false"
Quelqu'un sait pourquoi?



Bonjour.
Pour créer le sommaire :

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

Pour les nouvelles feuilles :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
ActiveSheet.Hyperlinks.Add Range("A" & Ligne), SubAddress = Sh.Name
End Sub

Cordialement.
Daniel
"Yapi" a écrit dans le message de news:

Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon
sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne
et,
le must, faire en sorte que les nouvelles feuilles s'insèrent
automatiquement?

Merci pour vos éventuelles lumières...

Yapi







Avatar
papou
Bonjour
Modifie légèrement comme ça et vérifie :
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 &
"!A1"
End With
i = i + 1
End If
Next sh
End Sub

Cordialement
Pascal

"Yapi" a écrit dans le message de news:

OK Daniel,

J'arrive bien à obtenir tout mes noms d'onglets en bleu surligné mais
lorsque je clique sur le lien le message suivant apparait : "impossible
d'ouvrir le fichier spécifié"
Je n'arrive pas à trouver mon bug...
As-tu une idée?
Merci


Bonjour.
Pour créer le sommaire :

Sub Sommaire()
Dim i As Integer
i = 1
For Each Sh In Sheets
If Sh.Name <> "Sommaire" Then
Sheets("Sommaire").Range("A" & i).Value = Sh.Name
Sheets("Sommaire").Hyperlinks.Add Range("A" & i), SubAddress
Sh.Name
i = i + 1


End If
Next
End Sub

Pour les nouvelles feuilles :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
ActiveSheet.Hyperlinks.Add Range("A" & Ligne), SubAddress = Sh.Name
End Sub

Cordialement.
Daniel
"Yapi" a écrit dans le message de news:

Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour
les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon
sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne
et,
le must, faire en sorte que les nouvelles feuilles s'insèrent
automatiquement?

Merci pour vos éventuelles lumières...

Yapi










Avatar
Daniel
Tu as raison, ça ne fonctionne pas, avec XL2003, du moins. J'aurais dû
tester.
Essaie :

Sub Sommaire()
Dim i As Integer
i = 1
Sheets("Sommaire").Select
For Each Sh In Sheets
If Sh.Name <> "Sommaire" Then
Sheets("Sommaire").Hyperlinks.Add Range("A" & i), Address:="",
SubAddress:= _
Sh.Name & "!A1", TextToDisplay:=Sh.Name
i = i + 1
End If
Next
End Sub
et :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
Sheets("Sommaire").Hyperlinks.Add Range("A" & Ligne), Address:="",
SubAddress:= _
Sh.Name & "!A1", TextToDisplay:=Sh.Name
End Sub

Daniel
"Daniel" a écrit dans le message de news:
%
Bonjour.
Pour créer le sommaire :

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

Pour les nouvelles feuilles :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
ActiveSheet.Hyperlinks.Add Range("A" & Ligne), SubAddress = Sh.Name
End Sub

Cordialement.
Daniel
"Yapi" a écrit dans le message de news:

Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon
sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne
et,
le must, faire en sorte que les nouvelles feuilles s'insèrent
automatiquement?

Merci pour vos éventuelles lumières...

Yapi






Avatar
Yapi
No comment. C'est parfait!
Merci
Yapi


Tu as raison, ça ne fonctionne pas, avec XL2003, du moins. J'aurais dû
tester.
Essaie :

Sub Sommaire()
Dim i As Integer
i = 1
Sheets("Sommaire").Select
For Each Sh In Sheets
If Sh.Name <> "Sommaire" Then
Sheets("Sommaire").Hyperlinks.Add Range("A" & i), Address:="",
SubAddress:= _
Sh.Name & "!A1", TextToDisplay:=Sh.Name
i = i + 1
End If
Next
End Sub
et :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
Sheets("Sommaire").Hyperlinks.Add Range("A" & Ligne), Address:="",
SubAddress:= _
Sh.Name & "!A1", TextToDisplay:=Sh.Name
End Sub

Daniel
"Daniel" a écrit dans le message de news:
%
Bonjour.
Pour créer le sommaire :

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

Pour les nouvelles feuilles :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ligne As Integer
Sheets("Sommaire").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = Sh.Name
ActiveSheet.Hyperlinks.Add Range("A" & Ligne), SubAddress = Sh.Name
End Sub

Cordialement.
Daniel
"Yapi" a écrit dans le message de news:

Bonjour,

J'ai une pile de feuilles dans un classeur et je voudrais pouvoir les
référencer sur une première feuille que j'appelerais "SOMMAIRE" pour les
visualiser à l'ouverture de mon classeur.
Il y a bien l'astuce du clic droit sur les flèches de l'ascenceur
horizontal, mais je cherche à intégrer cette fonctionnalité sur mon
sommaire
en créant des liens sur ces cellules vers les feuilles concernées...
Comment puis-je faire apparaitre le nom de mes feuilles sur une colonne
et,
le must, faire en sorte que les nouvelles feuilles s'insèrent
automatiquement?

Merci pour vos éventuelles lumières...

Yapi