Microsoft 365 erreur syntaxe pour coller sous un tableau

[thenesol]

bonjour à tous

avec cet extrait de code que j'ai récupéré, je souhaite coller un range (sourceRange) sous le tableau "Tabl_test" juste sous la colonne "titre_1" (qui n'est pas la 1ere colonne du tableau)
mais sa plante sur la ligne en jaune : "propriété ou méthode non gérée par cet objet" qu'il dit

Set tbl = wb0.Sheets("test").ListObjects("Tabl_test")
col_destination = "titre_1"


On Error Resume Next
    Set destinationColumn = tbl.ListColumns(col_destination)
On Error GoTo 0
    ' Check if the column exists
If Not destinationColumn Is Nothing Then
    ' Insert a new row below the table
    tbl.ListRows.Add
    ' Set the destination range under the specific column
    destinationRange = tbl.ListRows(tbl.ListRows.Count).ListObjects.ListColumns(col_destination).DataBodyRange
    ' Copy the values from the source range to the destination range
    destinationRange.Value = sourceRange.Value
Else
    MsgBox "Column not found.", vbExclamation
End If

quelle serait la bonne formulation ?

merci...!

 

[Dranreb]

Bonsoir.
À priori je dirais :

Set DestinationRange = Intersect(tbl.ListRows.Add.Range, DestinationColumn.Range.EntireColumn)

 

[thenesol]

merci !
ça marche (un peu) mieux avec ça
le problème est qu'il ne m'y colle que la 1ere ligne du sourceRange
alors que celui ci en contient plusieurs

pourquoi...?

 

[Dranreb]

Non, mais là on n'y voit rien. Joignez le classeur en expliquant ce que vous voulez faire. Un ListrRows.Add n'ajoute bien évidemment qu'une ligne et son Range n'en, comporte aussi qu'une.

 

[thenesol]

oui, je comprends
mais pour envoyer un classeur il faudrait que je depiaute mes données et mon code, j'espérais identifier le problème sans ça.

en fait je crois que j'ai compris : j'ai l'impression il faut que destinationRange et sourceRange aient le même nombre de lignes et de colonnes
c'est bien ça ?

je pensais que c'était aussi simple de faire comme dans excel, copier une zone et la coller sur une cellule pour que la zone se propage toute seule

en tout cas ça fonctionne maintenant

merci pour ce qui précède !

 

[Dranreb]

Vous pouvez quand même essayer d'ajouter .Resize(SourceRange.Rows.Count) derrière tbl.ListRows.Add.Range ou peut être plutôt plus bas derrière DestinationRange

DestinationRange.Rezize(SourceRange.Rows.Count).Value = SourceRange.Value