Discussion :

[pokypok]

Bonjour petite question est il possible d'affecter à une variable le nom d'un tableau structuré?
J'ai plusieurs tableaux à traiter et j'aimerai au lieu de réécrire x fois le code en changeant le nom du tableau juste changer le nom dans une variable....



Avec par exemple mes tableaux à traiter t_01, t_02 etc et la variable tab_var

comment déclarer tout cela ?

[Thautheme]

Bonjour Pokypok, bonjour le forum,

Essaie comme ça :

Code :

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

1
2
3
4
5
Dim O As Worksheet
Dim TB As ListObject
 
Set O = Worksheets("Feuil1")
Set TB = O.ListObjects("t_01")

[Menhir]

La solution de Thautheme ( ) de référencer directement le tableau plutôt que son nom est certainement la meilleure.

Cependant, pour répondre à ta question directe : NomTableau = Worksheets("Feuil1").ListObjects("Tableau1").Name.
Il n'est pas possible d'obtenir le nom de tableau en passant par Range.

[pokypok]

merci à vous deux mais il y a une erreur lorsque je fais ceci....

Code :

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

1
2
3
4
5
6
7
8
Sub masquer_afficher()
     Dim nbrligne As Integer
     Dim O As Worksheet
     Dim TB As ListObject
     Set O = Worksheets("ftype")
     Set TB = O.ListObjects("f00_tab01")
     nbrligne = Range("TB").Rows.Count
End Sub

avec ligne 8: erreur 1004 la méthode range de l objet _Global a échoué

[pokypok]

je viens d'essayer avec la solution de Menhir j'ai la même erreur

Code :

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

1
2
3
NomTableau = Worksheets("ftype").ListObjects("f00_tab01").Name
 
nbrligne = Range("NomTableau").Rows.Count

je pense que cela vient du range mais ça dépasse mes compétences

[Menhir]

Parfois, j'ai l'impression que ce qu'on écrit n'est pas lu.
Je t'avais pourtant prévenu que ça ne fonctionne pas avec Range.

En plus, TB n'est pas une chaine de caractères mais une variable.

Code :

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

1
2
3
4
5
6
7
8
9
Sub masquer_afficher()
     Dim nbrligne As Integer
     Dim O As Worksheet
     Dim TB As ListObject
 
     Set O = Worksheets("ftype")
     Set TB = O.ListObjects("f00_tab01")
     nbrligne = TB.Range.Rows.Count
End Sub

Lire ça : https://docs.microsoft.com/fr-fr/off...cel.listobject

je viens d'essayer avec la solution de Menhir j'ai la même erreur

Code :

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

1
2
NomTableau = Worksheets("ftype").ListObjects("f00_tab01").Name
nbrligne = Range("NomTableau").Rows.Count

je pense que cela vient du range mais ça dépasse mes compétences

Le nom d'une variable ne se met pas entre guillemets.

Code :

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

1
2
NomTableau = Worksheets("ftype").ListObjects("f00_tab01").Name
nbrligne = Range(NomTableau).Rows.Count

[pokypok]

Il n'est pas possible d'obtenir le nom de tableau en passant par Range.

Désolé mais en lisant cela j'avais compris que cela ne concernait que le nom et pas le tableau en lui même et que du coup il fallait avant de faire le range le déclarer autrement !!!!

[pokypok]

Le nom d'une variable ne se met pas entre guillemets.

Code :

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

1
2
NomTableau = Worksheets("ftype").ListObjects("f00_tab01").Name
nbrligne = Range(NomTableau).Rows.Count

Super merci beaucoup
Oui je sais je fais des erreurs de base mais je suis toto didacte et j'ai vraiment du mal parfois à comprendre les pourquois du comment dans les solutions que vous proposez ...

En tout cas merci d'avoir pris le temps de m'expliquer cela !


Si je peux abuser..... saurais tu m'indiquer pour ce même tableau comment trouve le numéro de ligne de sa première ligne?.....