Tableaux structurés VBA

Bonjour,

J'enrage ma vie depuis un moment à essayer de récupérer les entêtes dans un Array mais ça ne passe pas.

J'ai essayé :

Arr = WsB.Range("TBD[#En-têtes]").Value 'et
Arr = WsB.Range("TBD[#Headers]").Value

Une idée ?

A+

Salut Galopin01

As-tu été voir ici (à priori oui)
https://www.excel-pratique.com/fr/astuces/tableau-structure

Sinon voici

Sub Test()
  Dim Arr As Variant, Col As Long, Ind As Long
  Dim WsB As Worksheet
  Set WsB = ActiveSheet
  Arr = WsB.Range("TBD[#Headers]").Value
  Col = WsB.Range("TBD[#Headers]").Columns.Count
  For Ind = 1 To Col
    Debug.Print Arr(1, Ind)
  Next Ind
End Sub

A+

Oui... Mébon surement un petit coup de pompe passager ! A force de regarder toujours la même ligne, on ne cherche pas ou il faut !

C'est bien "Headers" : "En-têtes" n'est utilisé que dans le Gestionnaire de noms.

Merci.

A+

Bonsoir …

A toutes fins utiles : le tableau est nommé Tb, sachant que la lignes des titres est 0 !

Private Sub Cmb_Click() 'un bouton dans le fichier joint
  For n = 1 To [tb].Columns.Count
    Cells(n + 1, 7) = [tb].Item(0, n) 'titres en lignes 2,3...de la colonne7
Next
End Sub