Couper copier un listobject depuis un autre onglet

Bonsoir le forum (ou plutôt bonjour)

J'ai une petite question pour vous, comment puis-je faire pour couper et coller a un autre emplacement sur la même feuille un listobject, et tous ca depuis une autre feuille ?

La subtilité c'est que si je me rend sur la feuille, que je coupe et que je sélectionne la plage de destination cela fonctionne (comme ci-dessous) :

dim ls as listobject
set ls = Feuil2.Listobjects("Tab")

Feuil2.Activate

ls.Range.Cut
Feuil2.Range("A1").Select
Selection.Paste

Mais comme dit, j'aimerai d'une part faire cette action depuis une autre feuille et surtout sans devoir sélectionner la plage de destination.
Possible ou pas possible ?

Merci d'avance pour vos retour éclairé

Ci-joint un fichier test pour s'amuser un peu.

(Le bouton pour lancer la macro se trouve en feuil1, le listobject en feuille 2)

Cordialement,

Bonjour

A mettre dans un module standard

Private Sub CopieTableau()

        Dim numLgn%

        With [Tab_test].ListObject
            numLgn = .Range.Row + 2
            .Range.Cut Destination:=Sheets("Feuil2").Range("D" & numLgn)
        End With
End Sub

Ou plus simplement

Private Sub CopieTableau()

        With [Tab_test].ListObject
            .Range.Cut Destination:=Sheets("Feuil2").Range("D" & .Range.Row + 2)
        End With
End Sub

Bonjour,

Encore plus simple et sans nommer la feuille :

Private Sub Btn_test_Click()

    With [Tab_test].ListObject.Range
        .Cut Destination:=.Worksheet.Range("A1")
    End With

End Sub

RE

bien vu

Dans ce cas c'est Parent et non Worksheet

Private Sub CopieTableau()

        With [Tab_test].ListObject
            .Range.Cut Destination:=.Parent.Range("D" & .Range.Row + 2)
        End With
End Sub

RE

Arf je n'avais jamais fait attention qu'effectivement le Range est directement lié à Worksheet.

Je me coucherai moins bête. Merci

Bonjour Chris et Thev

Merci beaucoup pour votre expertise et vos lumières, c'est plus simple que ce que je pensais décidément

J'en apprend tous les jours sur ce super forum.

Merci encore à vous.

Cordialement,