Discussion :

[Billou265]

Bonjour,
dans un onglet 'Liste', je voudrais recenser tous les noms d'onglet présents dans mon classeur excel (de 1 à N onglets). Comment faire?
Merci beaucoup !!

[MarcelG]

Bonjour,

En balayant la collection de tes feuilles, tu peux coder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub Essai3()
Dim wk As Worksheet
N = 0
For Each wk In ThisWorkbook.Worksheets
    If wk.Name <> "Liste" Then
        N = N + 1
        Sheets("Liste").Cells(N, 1).Value = wk.Name
    End If
Next
End Sub

A adapter, notamment en fonction de la cellule où tu veux placer ta liste.

Cordialement.

Marcel.