Discussion :

[mouftie]

Bonjour,
Je voudrais récupérer la liste des tables et de leurs références
Sur le Net, j'ai trouvé le code suivant, mais il ne me renvoie que la liste des segments

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub essai()
Dim i As Byte, Nm As Object
i = 1
For Each Nm In ActiveWorkbook.Names
 ActiveSheet.Cells(i, 1).Value = Nm.Name
 ActiveSheet.Cells(i, 2).Value = "'" & Nm.RefersTo
 i = i + 1
Next
ActiveSheet.Columns("A:B").AutoFit
End Sub

Le code renvoie également l'info _xlfn.COUNTIFS'=#NAME? ; à quoi cela fait-il référence ?

Merci beaucoup pour votre aide

[halaster08]

Bonjour,

Chez moi (XL-2010) la macro fonctionne très bien:

[mouftie]

Pas chez moi, lol


Peut-être parce qu'il s'agit de table référencée ?

[halaster08]

Peut-être parce qu'il s'agit de table référencée ?

Je confirme, j'ai crée une table, elle ne passe pas dans la macro
Tu ne boucle pas sur le bon objet
Tu auras peut être des réponses ici: https://fauconnier.developpez.com/tu...uresvba/#LII-A

[mouftie]

Merci halaster08 pour ta réponse (la mienne est bien tardive...)

Effectivement la réponse de Pierre Fauconnier est

[mfoxy]

Bonjour mouftie,

Une façon de récupérer l'ensemble des Tables Structurées du classeur Actif.
Tu peu toujours "jouer" avec leurs différents attributs pour obtenir le résultat escompté.

Bàt,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub ListAllTblinWb()
 
Dim tbl As ListObject
Dim sh As Worksheet
 
  For Each sh In ThisWorkbook.Worksheets
    For Each tbl In sh.ListObjects
 
        i = i + 1
 
        Range("A" & i).Value = tbl.Name
        Range("B" & i).Value = tbl.Parent.Name
        Range("C" & i).Value = tbl.Range.Address
 
    Next tbl
  Next sh
 
End Sub