Obtenir la plage utilisée dans la colonne de la table ListObject

De cette manière, vous éviterez les erreurs car vos erreurs proviennent de la ActiveSheet qui peuvent être différentes si l'utilisateur interagit:

Dim Lastrow As Long 'don't use Integer is a Long cut to the integer
Dim rng As Range

With ThisWorkbook.Sheets("MySheet") 'Change MySheet to your working sheet name
    Lastrow = .Cells(.Rows.Count, 2).End(xlUp).Row
    Set rng = .Range("B12:B" & Lastrow)
End With

De cette façon, toutes vos données seront proviennent de la feuille MySheet à la fois le LastRow et le rng . Vous pouvez remarquer que j'utilise un point devant Cells , Rows.count et Range . Cela signifie qu'il fait référence à la feuille sur la ligne: With ThisWorkbook.Sheets ("MySheet")

Ce qui suit sélectionnera la plage de vos données dans la colonne 2 du tableau

╔══════════════════════════════════════════════════════════════════════════════════════════════════════════════╗
â•‘                                      Selecting Areas Of A Table With VBA                                     â•‘
╠══════════════════════════════════════╦═══════════════════════════════════════════════════════════════════════╣
â•‘                Select                â•‘                               VBA Coding                              â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Entire Table                         â•‘ ActiveSheet.ListObjects("Table1").Range.Select                        â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Table Header Row                     â•‘ ActiveSheet.ListObjects("Table1").HeaderRowRange.Select               â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Table Data                           â•‘ ActiveSheet.ListObjects("Table1").DataBodyRange.Select                â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Third Column                         â•‘ ActiveSheet.ListObjects("Table1").ListColumns(3).Range.Select         â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Third Column (Data Only)             â•‘ ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Select â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Select Row 4 of Table Data           â•‘ ActiveSheet.ListObjects("Table1").ListRows(4).Range.Select            â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Select 3rd Heading                   â•‘ ActiveSheet.ListObjects("Table1").HeaderRowRange(3).Select            â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Select Data point in Row 3, Column 2 â•‘ ActiveSheet.ListObjects("Table1").DataBodyRange(3,                    â•‘
â•‘                                      â•‘   2).Select                                                           â•‘
╠══════════════════════════════════════╬═══════════════════════════════════════════════════════════════════════╣
â•‘ Subtotals                            â•‘ ActiveSheet.ListObjects("Table1").TotalsRowRange.Select               â•‘
â•‘                                      â•‘                                                                       â•‘
╚══════════════════════════════════════╩═══════════════════════════════════════════════════════════════════════╝

Il existe un guide très complet sur la façon de sélectionner différentes parties du ListObject ici

Dim tbl as ListObject
Dim rng as Range

set tbl = ActiveSheet.ListObjects("YourTableName")

set rng = tbl.ListColumns(2).DataBodyRange

Sub F()
    Dim tbl As ListObject
    Dim col As ListColumn
    Set tbl = ActiveSheet.ListObjects("Table1")
    Set col = tbl.ListColumns(2)
End Sub

J'utilise ceci:

Dim lastrow as Long, tbl As ListObject
With Sheets("Sheet1")
    Set tbl = .ListObjects("MyTable")
    With tbl
        'Siddharth Rout, Feb 2018
        'http://www.siddharthrout.com/index.php/2018/02/10/find-last-row-and-last-column/
        'https://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in-vba
        lastrow = .ListColumns(1).Range.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        .DataBodyRange(lastrow, 1).Resize(1, 3) = Array(Date, "some text", "some text")
    End With
    Set tbl = Nothing
End With