affectation d'un nom de tableau à une variable

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 ?

Bonjour Pokypok, bonjour le forum,

Essaie comme ça :

Code:

---

1 2 3 4 5

Dim O As Worksheet Dim TB As ListObject   Set O = Worksheets("Feuil1") Set TB = O.ListObjects("t_01")

---

La solution de Thautheme ( :coucou: ) 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.

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

Code:

---

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é

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

Code:

---

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

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:

---

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

Citation:

---

Envoyé par pokypok

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

Code:

---

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:

---

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

---

Citation:

---

Envoyé par Menhir

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 !!!!

Citation:

---

Envoyé par Menhir

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

Code:

---

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..... :mrgreen: saurais tu m'indiquer pour ce même tableau comment trouve le numéro de ligne de sa première ligne?.....

En reprenant les exemples précédents.

En passant par une variable objet : Ligne1 = TB.Range.Row.
En passant par le nom de tableau : Ligne1 = Range(NomTableau).Row.

Mais, de nouveau, il est probable que ce numéro de ligne ne soit pas nécessaire en lui-même.
Si tu prends la peine de créer un tableau structuré, il serait dommage de le traiter comme une simple zone de cellules.

:mouarf::mouarf::mouarf::mouarf::mouarf:
j'étais en train de te répondre et cela m'a fait penser à ça:

Code:

---

premligne = Sheets("ftype").ListObjects("f00_tab01").DataBodyRange(1, 1).Row

---

Merci !!!!!!!!!!!!