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 liste des feuilles d'un classeur

liste des feuilles d'un classeur

6 réponses
Avatar
tipi
Salut,

Qq'un a-t-il un code pour mettre dans une première feuille la liste des
feuilles du classeur ?

merci
Signaler un problème avec ce contenu

6 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
Philippe Noss
Bonjour
Sub liste()
Dim c As Range
Set c = ActiveCell
For Each f In Sheets
c = f.Name
Set c = c.Offset(1, 0)

Next
End Sub
Sinon il a une fonction dans Exoutils qui fait ca (Gestion des
feuilles)
http://nossphil.perso.cegetel.net/exoutils.html

Philippe N
Avatar
Jacky
Bonsoir

Ceci pourrait convenir.
'--------
Sub jj()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub
'--------
Salutations

"tipi" a écrit dans le message de
news:
Salut,

Qq'un a-t-il un code pour mettre dans une première feuille la liste des
feuilles du classeur ?

merci




Avatar
tipi
Je vous remercie, ça me convient parfaitement
a+

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

Salut,

Qq'un a-t-il un code pour mettre dans une première feuille la liste des
feuilles du classeur ?

merci



Avatar
DanC
Bonjour
j'oserais en demander un peu plus:
la liste avec un hyperlien qui pointe sur la feuille

et dans chaque feuille, un bouton pour revenir à la feuille liste

Merci d'avance et bonne journée

--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"tipi" a écrit dans le message de news:

Salut,

Qq'un a-t-il un code pour mettre dans une première feuille la liste des
feuilles du classeur ?

merci



Avatar
Alain CROS
Bonjour.

Dans le module ThisWorkbook.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
If Not Sh Is Worksheets("Sommaire") Then Exit Sub
If Intersect(Target, Sh.Range("A1:A" & Sheets.Count - 1)) Is Nothing Then Exit Sub
If ActiveSheet Is Sh Then Sheets(Target.Value).Activate
End Sub

Dans un module standard.

Sub AjoutSommaire()
Dim I&
Application.DisplayAlerts = False
On Error Resume Next
Worksheets("Sommaire").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Worksheets.Add(Sheets(1)).Name = "Sommaire"
For I = 2& To Sheets.Count
Worksheets(1).Range("A" & I - 1&) = Sheets(I).Name
If TypeName(Sheets(I)) = "Chart" Then
Worksheets(1).Hyperlinks.Add Worksheets(1).Range("A" & I - 1&), "", _
Worksheets(1).Name & "!A" & I - 1&
Else
Worksheets(1).Hyperlinks.Add Worksheets(1).Range("A" & I - 1&), "", _
Worksheets(1).Range("A" & I - 1&) & "!A1"
End If
Next I
End Sub

Lancer AjoutSommaire qui crée une nouvelle feuille avec les liens.

La feuille s'appelera Sommaire et non pas liste.
Pour le bouton sur chaque feuille qui te ramène sur la feuille Sommaire ... j'ai la flemme.

Alain CROS

"DanC" a écrit dans le message de news:
| Bonjour
| j'oserais en demander un peu plus:
| la liste avec un hyperlien qui pointe sur la feuille
|
| et dans chaque feuille, un bouton pour revenir à la feuille liste
|
| Merci d'avance et bonne journée
|
| --
| (___) Danielle
| (oo) "... A quoi bon la charrue
| /------- et la voile, la terre et
| || || la vie sans la liberté?"
| ||---W|| * - Ralph Waldo Emerson
| ^^ ^^
| "tipi" a écrit dans le message de news:
|
| > Salut,
| >
| > Qq'un a-t-il un code pour mettre dans une première feuille la liste des
| > feuilles du classeur ?
| >
| > merci
| >
|
|
Avatar
DanC
Merci beaucoup!
Ça fonctionne super!
J'ai même créé mon fameux bouton pour revenir à cette feuille, sur toutes
les feuilles.
Bonne journée

--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"Alain CROS" a écrit dans le message de news:
%
Bonjour.

Dans le module ThisWorkbook.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)
On Error Resume Next
If Not Sh Is Worksheets("Sommaire") Then Exit Sub
If Intersect(Target, Sh.Range("A1:A" & Sheets.Count - 1)) Is Nothing Then
Exit Sub
If ActiveSheet Is Sh Then Sheets(Target.Value).Activate
End Sub

Dans un module standard.

Sub AjoutSommaire()
Dim I&
Application.DisplayAlerts = False
On Error Resume Next
Worksheets("Sommaire").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Worksheets.Add(Sheets(1)).Name = "Sommaire"
For I = 2& To Sheets.Count
Worksheets(1).Range("A" & I - 1&) = Sheets(I).Name
If TypeName(Sheets(I)) = "Chart" Then
Worksheets(1).Hyperlinks.Add Worksheets(1).Range("A" & I - 1&),
"", _
Worksheets(1).Name & "!A" & I - 1&
Else
Worksheets(1).Hyperlinks.Add Worksheets(1).Range("A" & I - 1&),
"", _
Worksheets(1).Range("A" & I - 1&) & "!A1"
End If
Next I
End Sub

Lancer AjoutSommaire qui crée une nouvelle feuille avec les liens.

La feuille s'appelera Sommaire et non pas liste.
Pour le bouton sur chaque feuille qui te ramène sur la feuille Sommaire
... j'ai la flemme.

Alain CROS

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

| Bonjour
| j'oserais en demander un peu plus:
| la liste avec un hyperlien qui pointe sur la feuille
|
| et dans chaque feuille, un bouton pour revenir à la feuille liste
|
| Merci d'avance et bonne journée
|
| --
| (___) Danielle
| (oo) "... A quoi bon la charrue
| /------- et la voile, la terre et
| || || la vie sans la liberté?"
| ||---W|| * - Ralph Waldo Emerson
| ^^ ^^
| "tipi" a écrit dans le message de news:
|
| > Salut,
| >
| > Qq'un a-t-il un code pour mettre dans une première feuille la liste
des
| > feuilles du classeur ?
| >
| > merci
| >
|
|