XL 2019 Recherche tableau nommé

[FLOW312020]

Bonjour à tous,

Je souhaiterai appliquer une macro à tous les tableaux nommés que j'ai dans mon fichier Excel dont la dénomination des tableaux commence par "Historique".
Savez-vous comment doit être adapté le code dessous pour être fonctionnel?

Set Tableau=activesheet.listobjects("Historique*******")

En espérant que ma demande soit compréhensible...

Merci

 

[mapomme]

Bonsoir,

Un code du type?:

Sub test()
' parcours de tous les tableaux structurés d'un classeur pour
' n'agir que sur ceux dont le nom commence par "Historique"
Dim wks As Worksheet, lsto As ListObject
   For Each wks In ThisWorkbook.Worksheets
      For Each lsto In wks.ListObjects
         If lsto.Name Like "Historique*" Then
            maMacro lsto
         End If
      Next lsto
   Next wks
End Sub

Sub maMacro(x As ListObject)
   ' pour un tableau structuré x, affiche son nom et le nom de la feuille qui le contient
   MsgBox "Tableau structuré " & x.Name & " sur la feuille " & x.Parent.Name
End Sub