Discussion :

[Patoche90]

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

[78chris]

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

[Patoche90]

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.

[78chris]

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 :

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

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

[Patoche90]

Bonjour,

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

Code :

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

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

[Pierre Dumas]

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

[Pierre Fauconnier]

Salut.

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

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