Redimensionner Listobject Tableau dynamiquement à l'aide de VBA

Je veux changer la taille de l'objet tables via VBA, j'ai essayé de modifier le code de msdn.microsoft.com sur listobject.la méthode resize mais je veux dynamiquement si les données chargées dans chaque ligne.

Le code que j'essaie mais en vain:

Sub resizedata()
Dim ws As Worksheet
Dim ob As ListObject
Dim Lrow1 As Long

Lrow1 = Sheets("db_goods").Cells(Rows.Count, "E").End(xlUp).Row
Set ws = ActiveWorkbook.Worksheets("db_goods")
Set ob = ws.ListObjects("Table1")

ob.Resize Range("A1" & Lrow1)

End Sub

Quelqu'un pourrait-il m'aider?

Merci d'avance

Redimensionner Listobject Tableau dynamiquement à l'aide de VBA

OriginalL'auteur Ryan Chatoeala | 2016-10-29

  1. 12

    Le problème est Range("A1" & Lrow1) renvoie une Gamme de $A$112, parce que vous êtes de passage à la Range fonction du résultat de l'enchaînement de "A1" & "12".

    Essayez de remplacer cette ligne:

    ob.Resize Range("A1" & Lrow1)

    Avec celui-ci:

    ob.Resize ob.Range.Resize(Lrow1)
    Grâce MJH, mon problème est clair maintenant. J'ai essayer le code que vous recomendated et il fonctionne bien. Merci encore une fois. Bravo.

    OriginalL'auteur MJH

  2. 2

    Il y a moyen d'éviter le calcul de la dernière ligne:

    Sub ResizeListDyn()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects(1)
    tbl.Resize tbl.Range.CurrentRegion
End Sub
    Je crois que cette réponse est beaucoup plus utile, car j'ai observé que .End(xlUp) va passer à la dernière ligne de la table au lieu de la dernière ligne avec le contenu réel de la cellule respective. Merci btw

    OriginalL'auteur JohnyL