XL 2016 VBA et noms des tableaux structurés en Gestionnaire de noms

Dudu2

XLDnaute Barbatruc
Bonjour,

2020-09-21_170301.jpg
 

Pièces jointes

  • Classeur1.xlsm
    28.5 KB · Affichages: 17
Solution
Bonjour Dudu2, chris,
VB:
Sub b()
Dim w As Worksheet, n%, LO As Object, x$
For Each w In Worksheets
    n = n + w.ListObjects.Count
    For Each LO In w.ListObjects
        x = x & vbLf & LO.Name & " en feuille " & w.Name
Next LO, w
MsgBox n & " tableaux structurés :" & x
End Sub
A+

chris

XLDnaute Barbatruc
Bonjour

De même qu'il n'apparaissent pas dans les formules à l'appel de la touche F3, ce ne sont pas des noms comme les autres

Il faut lister les listobjects et non les noms

Mais la question est surtout liée au contexte et au besoin et je rappelle la nécessité de nommer de façon signifiante les Tableaux structurés de même qu'on nomme les onglets et les classeurs...
 

job75

XLDnaute Barbatruc
Bonjour Dudu2, chris,
VB:
Sub b()
Dim w As Worksheet, n%, LO As Object, x$
For Each w In Worksheets
    n = n + w.ListObjects.Count
    For Each LO In w.ListObjects
        x = x & vbLf & LO.Name & " en feuille " & w.Name
Next LO, w
MsgBox n & " tableaux structurés :" & x
End Sub
A+
 

Pièces jointes

  • Classeur (1).xlsm
    24.7 KB · Affichages: 8

Dudu2

XLDnaute Barbatruc
Merci job75 pour le code effectif qui te vaut le fond vert et merci chris pour l'évocation du code :)
je rappelle la nécessité de nommer de façon signifiante les Tableaux structurés de même qu'on nomme les onglets et les classeurs...
En effet, et pas seulement. Je suis moi-même un partisan des noms (onglet, variables, tableaux, etc...) auto-explicatifs clairs quitte à manipuler des noms à rallonge car la maintenance et sa facilitation doivent être le 1er souci du développeur (Confucius vers 502 BC).
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 097
Messages
2 085 257
Membres
102 840
dernier inscrit
blaise09