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
quelle serait la bonne formulation ?
merci...!
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
VB:
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 Ifquelle serait la bonne formulation ?
merci...!