Recherche

Lister les Feuilles excel dans un Tableau (mise a jour automatique)


 Cet astuce est effectuer grâce à un code VBA lié a Excel. Chaque fois qu'une feuille est activée, le code s'exécute et affiche en colonne L (à adapter) la liste des noms de feuilles. Son utilité est de facilité le visionnage des feuilles lorsque votre fichier contient plusieurs feuilles de calculs.

Code VBA:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim tablo()
For i = 1 To Worksheets.Count
    ReDim Preserve tablo(i - 1)
    tablo(i - 1) = Sheets(i).Name
Next
Sh.Range("L1:L" & i - 1) = Application.Transpose(tablo())
End Sub