XL 2019 Recupérer tous les noms des onglets

[Merlin258413]

Bonjour
Je viens solliciter votre aide
Voici mon problème
J'ai une feuille Recap et je désire récupérer tous les noms de mes feuilles en A1.
Cordialement

 

[Eric C]

Bonjour le forum
Bonjour Merlin258413

Le plus simple (inclue la feuille Recap) :

Option Explicit

Sub Récap_Liste()
Dim i As Integer

    [A1].Select

    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

Bonne journée à toutes & à tous
@+ Eric c

 

[Merlin258413]

Bonjour le forum
Bonjour Merlin258413

Le plus simple (inclue la feuille Recap) :

Option Explicit

Sub Récap_Liste()
Dim i As Integer

    [A1].Select

    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

Bonne journée à toutes & à tous
@+ Eric c

Merci beaucoup cela fonctionne parfaitement
Excellente journée à tous