Lister tous les tableaux de toutes les feuilles

Bonjour à tous,

Voici une courte macro qui m'a été envoyée par D@niel et que je partage ici.

Elle permet de lister tous les tableaux de toutes les feuilles.

Voici le code et ici le fichier.

Voici le code de la macro :
Option Explicit
Sub JeListeMesNomsDeTableaux()
    Dim MaFeuille As Worksheet
    Dim MonTableau As ListObject
    Dim MonCompteurDeFeuilles As Byte
    Dim MonCompteurDeTableaux As Byte
    For Each MaFeuille In ThisWorkbook.Worksheets
        MonCompteurDeFeuilles = MonCompteurDeFeuilles + 1
        Range("RngMesNoms").Offset(MonCompteurDeFeuilles + MonCompteurDeTableaux, 0) = MaFeuille.Name
        For Each MonTableau In MaFeuille.ListObjects
            MonCompteurDeTableaux = MonCompteurDeTableaux + 1
            Range("RngMesNoms").Offset(MonCompteurDeFeuilles + MonCompteurDeTableaux - 1, 1) = MonTableau.Name
        Next MonTableau
    Next MaFeuille
    Range("RngMesNoms").Offset(1, 4).Select
        Selection.ListNames
    If MsgBox("On va tout effacer !", vbYesNo) = vbYes Then
    Cells.ClearContents
    End If
End Sub

Cordialement.

Gaetan Mourmant

Pour marque-pages : Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.