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
