Créer un listobject à partir d'un listobject ?

Version imprimable

19/12/2019, 09h15
Patoche90

Créer un listobject à partir d'un listobject ?

Bonjour,

Tous est dans l'intitulé.....

Je m'explique :
1/ J'ai un tableau structuré qui contient plusieurs colonnes & lignes -> Set Mon_Tableau = worksheets("Ma_Feuille").listobjects("Table").
2/ j'aimerais avoir un objet de type ListObject -> Dim Ma_Colonne as Listobject.
3/ qui contienne une colonne de "Mon_Tableau" -> Set Ma_Colonne = Mon_Tableau.Listcolumns("Ref").Range.listobject.

Ce qui ne marche pas ici car Ma_Colonne.Range.Address = l'adresse de Mon_Tableau.

D'où ma question est-il possible de créer un un objet de type ListObject qui soit une extraction d'un autre ListObject ?

Merci d'avance.
19/12/2019, 09h38
Philippe Tulliez

Bonjour,
La colonne d'un objet ListObject est un objet Range
Si maintenant on exporte l'objet Range on peut bien entendu, le convertir ensuite en objet ListObject.
Exactement comme on le ferait manuellement
19/12/2019, 09h46
Patoche90

Citation:

Envoyé par Philippe Tulliez

Bonjour,
La colonne d'un objet ListObject est un objet Range
Si maintenant on exporte l'objet Range on peut bien entendu, le convertir ensuite en objet ListObject.
Exactement comme on le ferait manuellement

Et comment on fait ?

Bonjour,

Citation:

Et comment on fait ?

Voici un exemple de la conversion en tableau structuré (ListObject) d'une colonne copiée (ici Logement) de l'unique tableau se trouvant dans la feuille nommée db vers une nouvelle feuille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub T()
  ' Déclaration
  Dim oList As ListObject
  Dim rngColumn As Range
  Dim NewSheet As Worksheet
  ' Assignation
  Set oList = ThisWorkbook.Worksheets("db").ListObjects(1)
  Set rngColumn = oList.ListColumns("Logement").Range
  ' Start
  Set NewSheet = ThisWorkbook.Worksheets.Add       ' Insère une nouvelle et l'assigne à la variable objet
  rngColumn.Copy Destination:=NewSheet.Range("A1") ' Copie de la colonne nommée "Logement" à partir de la cellule A1 de la nouvele feuille
  ' Conversion de la colonne exportée en objet ListObject
  With NewSheet
  .ListObjects.Add SourceType:=xlSrcRange, Source:=.Range("A1").CurrentRegion, xlListObjectHasHeaders:=xlYes
  End With
  ' Fin
  Set oList = Nothing: Set rngColumn = Nothing: Set NewSheet = Nothing
End Sub

19/12/2019, 10h32
Patoche90

Bonjour,

Merci pour ces éclaircissements....
En gros je suis obligé de faire une copie de la zone qui m'interresse et d'y affecter un listobject.

Si je comprends bien un listobject est un objet qui doit pointer sur une zone d'une feuille d'un classeur et non un objet qui peut-être mis en mémoire comme un Array par exemple.

Merci.
19/12/2019, 10h40
Philippe Tulliez

Bonjour,

Citation:

En gros je suis obligé de faire une copie de la zone qui m'interresse et d'y affecter un listobject.

Ce serait plus simple que tu expliques ce que tu veux faire exactement.
20/12/2019, 15h44
Patoche90

Bonjour,

Désolé pour la réponse tardive.
je souhaitais extraire une colonne d'un tableau structuré a n colonnes et qu'il me retourne un listobject.... Or j'ai bien compris que le "listobject" ne se manipulais pas comme un "Array" ou un "Dictionary".
Mais ta réponse me convient, c'est ce que j'avais en palliatif, mais je trouvais cela lourd. de même j'aurais bien imaginé une fonction de type Function Mon_Calcul() as listobject, ce qui est malheureusement pas possible

Merci pour les éclaircissements.

Bonjour,
J'avoue que je ne comprends, tu sembles ne pas vouloir passer par une copie et d'après tes explications, tu voudrais travailler sur une colonne d'un ListObject en mémoire et c'est évidemment possible.
Il suffit de placer les valeurs de la colonne dans une variable tableau et tu peux même y effectuer un calcul tel que Somme, Moyenne, etc.

Exemple de la somme de la colonne Salaire d'un tableau structuré se trouvant dans la feuille nommée db du classeur où se trouve le code VBA
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Test_ListObjectColumnInArray() ' Déclaration Const ColumnLabel As String = "Salaire" Dim oList As ListObject Dim myTable() Dim fx As WorksheetFunction ' Assignation Set oList = ThisWorkbook.Worksheets("db").ListObjects(1) myTable = oList.ListColumns(ColumnLabel).DataBodyRange.Value Set fx = Application.WorksheetFunction ' MsgBox "La somme de la colonne " & ColumnLabel & " est " & Format(fx.Sum(myTable), "# ##0.0# €") ' Fin Set oList = Nothing: Set fx = Nothing End Sub
[EDIT]

Citation:

de même j'aurais bien imaginé une fonction de type Function Mon_Calcul() as listobject, ce qui est malheureusement pas possible

Et une fonction VBA peut bien entendu renvoyer un ListObject