Transformer tableau en plage de données

[KTM]

Salut le forum
j'ai remarqué que par l'editeur VBE il n'est pas possible de transformer un tableau en plage de données
Existe il un code VBA pour le faire ? Merci

 

[Dranreb]

Bonsoir.

ActiveSheet.ListObjects(1).Unlist

Mais pourquoi voulez vous faire ça ? (Je soupçonne une raison qu'il devrait être possible d'assumer sans le supprimer)

 

[Dranreb]

Bonjour.
Aurais-je mal compris la question ?

 

[KTM]

Bonjour.
Aurais-je mal compris la question ?

Jai une base de données que je reçois mais sous forme de tableau.
Je dois faire une copie de cette base dans une nouvelle feuille et convertir le tableau en plage normale avant de l'exploiter et je veux le faire par macro.Merci

 

[Dranreb]

En tout cas la méthode Unlist d'un ListObject convertit le tableau en plage normale.

 

[Dranreb]

Bonjour.
Y a-t-il quelque chose que vous ne comprenez pas dans ma réponse ?
Cela supprime bien entendu ce ListObject, puisqu'il n'a plus de tableau à représenter.
Mais si vous n'avez que les valeurs à récupérer peut être que le plus simple serait d'affecter à la valeur de la plage cible la valeur de la plage couverte par le corps du tableau source.

Dim WshSrc As Worksheet, LOt As ListObject, RngCbl As Range
Set WshSrc = ?
Set RngCbl = ?
Set LOt = WshSrc.ListObjects(1)
RngCbl.Resize(10000).ClearContents
RngCbl.Resize(LOt.ListRows.Count).Value = LOt.DataBodyRange.Value

 

[merinos-BernardEtang]

Salut le forum
j'ai remarqué que par l'editeur VBE il n'est pas possible de transformer un tableau en plage de données
Existe il un code VBA pour le faire ? Merci

Salut KTM,

vous voulez de-pivoter des données?
Sans code, ... juste un query

Merinos

 

[merinos-BernardEtang]

j'ai ajouté une macro (la plus courte de ma carrière) dans la fleche...

Sub Macro1()
ActiveWorkbook.RefreshAll
End Sub

 

[KTM]

Bonjour.
Y a-t-il quelque chose que vous ne comprenez pas dans ma réponse ?
Cela supprime bien entendu ce ListObject, puisqu'il n'a plus de tableau à représenter.
Mais si vous n'avez que les valeurs à récupérer peut être que le plus simple serait d'affecter à la valeur de la plage cible la valeur de la plage couverte par le corps du tableau source.

Dim WshSrc As Worksheet, LOt As ListObject, RngCbl As Range
Set WshSrc = ?
Set RngCbl = ?
Set LOt = WshSrc.ListObjects(1)
RngCbl.Resize(10000).ClearContents
RngCbl.Resize(LOt.ListRows.Count).Value = LOt.DataBodyRange.Value

Ok merci.
Compréhension difficile mais ça marche