Tableaux structurés : emplacement ?

Bonjour,

J'aurais souhaité votre avis pour savoir si il était plus judicieux de faire plusieurs tableaux de données dans une feuille ou si je devais séparé un tableau par feuille ?

Je vous remet mon contexte :
Aujourd'hui j'ai une feuille qui contient mes 12 colonnes avec en ligne 1, une entête. et je désigne le numero de colonne et il me retourne un variant/ range qui contient les données
j'imaginais faire a peu pres semblable, mais avec un table type listobject mais qui ne contient que la colonne qui m'interesse....

soit :
un tableau de donnée = 1 colonne
j'aurais besoin de 12 colonnes, chaque colonne aurait une longueur variable et non dépendante des autres

Sachant que je n'ai pas d'utilité de faire un tableau de 12 colonnes x X lignes, car il n'y a pas de lien entre les colonnes donc extraire une ligne complète n'a pas de sens.... juste les données en colonne m'intéresse...

Ou tout simplement rester dans ma configuration c'est à dire faire un traitement avec RANGE....

Merci de vos avis

Bonjour

Un tableau structuré est une table, proche de ce qu'on trouve dans une base de données.

Si les colonnes sont indépendantes les unes des autres, il n'y a aucune raison à en faire un même tableau.
Donc chaque colonne doit être un tableau à part entière avec seulement les lignes contenant des infos pour chacun.

Pour éviter tout problème je conseille de les séparer par une colonne vide et non les accoler.
Le choix de les mettre sur des onglets séparés est plus un problème de contexte.
Je crée souvent des tables de référence d'une colonne et les stocke toutes ensemble dans un même onglet.

Si ce sont des tables opérationnelles c'est la logique des processus qui doit guider.

Si on manipule en VBA des tableaux, utiliser plutôt les objets ListObjects et leurs propriétés plutôt que des Range classiques

Bonjour,

Bonne remarque de mettre une colonne vide en intercalaire, cela évite quand je manipule les données qu'il "fusionne" 2 colonnes de données indépendantes. Pour moi, c'est plus facile de n'avoir qu'un onglet notamment dans les mises à jour.

Mais quand tu fait cela :
chaque tableau a un nom propre
Chaque colonne est nommée ou tu prends une valeur par défaut ?

Pour retrouver une colonne tu dois connaitre le nom de la colonne & le nom du tableau ou juste un des deux est suffisant ?

Je vais regarder les impacts sur le code :)

Merci.

Re

Chaque tableau doit être nommé correctement : ne surtout pas conserver les noms automatiques mais les modifier.

Les colonnes doivent avoir un titre signifiant également : on peut traiter une colonne par son index dans le tableau ListColumns(1) ou son titre ListColumns("Titre") en se référant au tableau soit directement soit dans un With
Exemple

Code:

---

Worksheets("NomFeuile").ListObjects("NomTableau")

---

Bonjour,

Oui mais c'est lourd....
j'imaginais plus un truc comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function GetListObject(Nom As String, Nom_Feuille As String) As ListObject   For Each Objet In ThisWorkbook.Worksheets(Nom_Feuille).ListObjects If Existe_Colonne(Objet, Nom) Then GetListObject = Objet Exit Function End If Next   End Function

---

Je met uniquement le nom de la colonne qui m'interresse et dans la procedure/function il y a la function ci dessus qui va chercher automatiquement le nom du tableau qui m'interesse...
Du coup je ne gere que le nom de la colonne que je souhaite....

Enfin c'est une idée.... peut-être y a-t-il des contraintes que je n'ai pas vu...

Bonjour

Je rajouterai juste le fait de mettre chaque tableau (présents sur la même feuille) avec une couleur différente afin de bien faire la différence visuelle entre chacun d'eux.
C'est tout bête, mais cela évite certaines confusions.

Sinon, je suis d'accord avec ce qu'à écrit Chris.

Bonne journée

Pierre Dumas

RE

Un code est lié à un objectif et on peut avoir 1000 et 1 choses différentes à faire dans un tableau...

Si ton objectif est de chercher le tableau dont tu ne connais que le titre de la colonne, alors ton code est très bien.

Pratiquant les bases de données, pour moi la table prime sur la colonne, d'autant qu'on peut avoir des noms de champs portant le même nom dans des tables différentes, donc mon approche est différente...

bonjour,

Bon j'ai retoussé les manches. J'ai crée autant de Tableaux structurés que nécéssaire avec un nom unique, un nom de colonne unique dans mon cas (c'est vrai j'aurais pus prendre le même pour tous)
une colonne vide en couleur entre 2 tableaux.
Mainteant je me pose une question est-il possible de faire cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function Soustrait_Liste_New(L_Src As ListObject, L_Supp As ListObject) As ListObject   Dim Result() As Variant Dim Nom As Range Dim Compteur As Integer Dim Cellule As Range   Compteur = 0 For Each Cellule In L_Src.DataBodyRange Set Nom = L_Supp.DataBodyRange.Find(Cellule, lookat:=xlWhole) If Nom Is Nothing Then Compteur = Compteur + 1 ReDim Preserve Result(Compteur) Result(Compteur) = Cellule.Value End If Next   Soustrait_Liste_New.DataBodyRange.Value = Result()   End Function

---

Mon idée est d'avoir une colonne qui est le resultat d'une soustraction de 2 autres colonnes.

Merci de votre avis.

Salut.

Voici ce que j'utilise de façon générique pour trouver un tableau structuré dans un classeur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function getTable(Name As String, Optional wb As Workbook) As ListObject Dim shCounter As Long: shCounter = 1 Dim loCounter As Long   If wb Is Nothing Then Set wb = ActiveWorkbook Do While shCounter <= wb.Worksheets.Count And getTable Is Nothing loCounter = 1 Do While loCounter <= wb.Worksheets(shCounter).ListObjects.Count And getTable Is Nothing If StrComp(Name, wb.Worksheets(shCounter).ListObjects(loCounter).Name, vbTextCompare) = 0 Then _ Set getTable = wb.Worksheets(shCounter).ListObjects(loCounter) loCounter = loCounter + 1 Loop shCounter = shCounter + 1 Loop End Function

---