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
Daniel.j
Bonjour, Un exemple: Insère une feuille nommée Liste des feuilles et crée le sommaire du classeur.
Sub ListeFeuilles() Application.ScreenUpdating = False Application.DisplayAlerts = False Set ArrFeuil = Sheets("Liste des feuilles") ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles" For i = 2 To ActiveWorkbook.Sheets.Count ArrFeuil.Cells(i, 1).Value = Sheets(i).Name Next i Application.DisplayAlerts = True Alerte = True Application.ScreenUpdating = True End Sub http://dj.joss.free.fr/feuil.htm
-- Daniel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"GB" a écrit dans le message de news: 41d9225e$0$17826$ | Bonjour je cherche à généré une table des matières sous excel sur le premier | onglet. | | Les titres seraient sur les onglet suivants.. | | -- | Guillaume | |
Bonjour,
Un exemple:
Insère une feuille nommée Liste des feuilles et crée le sommaire du classeur.
Sub ListeFeuilles()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ArrFeuil = Sheets("Liste des feuilles")
ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles"
For i = 2 To ActiveWorkbook.Sheets.Count
ArrFeuil.Cells(i, 1).Value = Sheets(i).Name
Next i
Application.DisplayAlerts = True
Alerte = True
Application.ScreenUpdating = True
End Sub
http://dj.joss.free.fr/feuil.htm
--
Daniel FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"GB" <contact@territoria.net> a écrit dans le message de news: 41d9225e$0$17826$8fcfb975@news.wanadoo.fr...
| Bonjour je cherche à généré une table des matières sous excel sur le premier
| onglet.
|
| Les titres seraient sur les onglet suivants..
|
| --
| Guillaume
|
|
Bonjour, Un exemple: Insère une feuille nommée Liste des feuilles et crée le sommaire du classeur.
Sub ListeFeuilles() Application.ScreenUpdating = False Application.DisplayAlerts = False Set ArrFeuil = Sheets("Liste des feuilles") ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles" For i = 2 To ActiveWorkbook.Sheets.Count ArrFeuil.Cells(i, 1).Value = Sheets(i).Name Next i Application.DisplayAlerts = True Alerte = True Application.ScreenUpdating = True End Sub http://dj.joss.free.fr/feuil.htm
-- Daniel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"GB" a écrit dans le message de news: 41d9225e$0$17826$ | Bonjour je cherche à généré une table des matières sous excel sur le premier | onglet. | | Les titres seraient sur les onglet suivants.. | | -- | Guillaume | |
B'our,
Pourquoi ne pas utiliser les liens hypertextes ?
"Daniel.j" a écrit dans le message de news:
Bonjour, Un exemple: Insère une feuille nommée Liste des feuilles et crée le sommaire du classeur.
Sub ListeFeuilles() Application.ScreenUpdating = False Application.DisplayAlerts = False Set ArrFeuil = Sheets("Liste des feuilles") ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles" For i = 2 To ActiveWorkbook.Sheets.Count ArrFeuil.Cells(i, 1).Value = Sheets(i).Name Next i Application.DisplayAlerts = True Alerte = True Application.ScreenUpdating = True End Sub http://dj.joss.free.fr/feuil.htm
-- Daniel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"GB" a écrit dans le message de news: 41d9225e$0$17826$
| Bonjour je cherche à généré une table des matières sous excel sur le premier
| onglet. | | Les titres seraient sur les onglet suivants.. | | -- | Guillaume | |
B'our,
Pourquoi ne pas utiliser les liens hypertextes ?
"Daniel.j" <nospam_dj.joss@free.fr> a écrit dans le message de news:
eH00YTY8EHA.4004@tk2msftngp13.phx.gbl...
Bonjour,
Un exemple:
Insère une feuille nommée Liste des feuilles et crée le sommaire du
classeur.
Sub ListeFeuilles()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ArrFeuil = Sheets("Liste des feuilles")
ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles"
For i = 2 To ActiveWorkbook.Sheets.Count
ArrFeuil.Cells(i, 1).Value = Sheets(i).Name
Next i
Application.DisplayAlerts = True
Alerte = True
Application.ScreenUpdating = True
End Sub
http://dj.joss.free.fr/feuil.htm
--
Daniel FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"GB" <contact@territoria.net> a écrit dans le message de news:
41d9225e$0$17826$8fcfb975@news.wanadoo.fr...
| Bonjour je cherche à généré une table des matières sous excel sur le
premier
| onglet.
|
| Les titres seraient sur les onglet suivants..
|
| --
| Guillaume
|
|
Bonjour, Un exemple: Insère une feuille nommée Liste des feuilles et crée le sommaire du classeur.
Sub ListeFeuilles() Application.ScreenUpdating = False Application.DisplayAlerts = False Set ArrFeuil = Sheets("Liste des feuilles") ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles" For i = 2 To ActiveWorkbook.Sheets.Count ArrFeuil.Cells(i, 1).Value = Sheets(i).Name Next i Application.DisplayAlerts = True Alerte = True Application.ScreenUpdating = True End Sub http://dj.joss.free.fr/feuil.htm
-- Daniel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"GB" a écrit dans le message de news: 41d9225e$0$17826$
| Bonjour je cherche à généré une table des matières sous excel sur le premier
| onglet. | | Les titres seraient sur les onglet suivants.. | | -- | Guillaume | |
