Sélection de la ligne complète

Bonjour à tous

je cherche vainement de l'aide pour sélectionner un ligne complet d'un tableau Excel dans une feuille sans réussite sur le net

      
'Celle ci fonctionne

        Sheets("list").Activate
        Range("ListAgent").Find(CbGuardR.Value).Select
        Dim Lig As Integer
        Lig = Selection.Row
            Selection.ListObject.ListRows(Lig - 4).Delete

'voila comment je souhaitais la modifier mais cela ne marche pas

        Sheets("list").Activate
        Range("ListAgent").Find(CbGuardR.Value).Select
        Dim Lig As Integer
        Lig = Selection.Row
            Selection.ListObject.ListRows(Lig - 4).Copy

Donc j'ai crée un tableau nommé

la recherche de la cellules marche

je voulais savoir si a partir de la on pouvais selectioné uniquement la ligne de ce tableau sachant qu'il est coller à l'autre tableau ou je dois coller les info

et en tout logique un cut/paste serait l'idéal

Merci d'avance

Bonsoir,

Un exemple pour sélectionner,couper et coller la ligne de ton tableau,

If Not ActiveCell.ListObject Is Nothing Then
    Set lo = ActiveCell.ListObject
    lRow = ActiveCell.Row - lo.HeaderRowRange.Row
    Set lr = lo.ListRows(lRow)
    lr.Range.Cut (Sheets("list").Range("A1"))
End If

Bonsoir

merci pour la réponse

j' essaye d'imbriquer ton code dans le mien

mais cela me parait étrange

Sheets("Keycar").Activate
Range("ListKey0").Find(CbCars.Value).Select
If Not ActiveCell.ListObject Is Nothing Then
Set lo = ActiveCell.ListObject
lRow = ActiveCell.Row - lo.HeaderRowRange.Row
Set lr = lo.ListRows(lRow)
lr.Range.Cut (Sheets("Keycar").Range("B4").End(xlDown).Select)
End If

La copie dois partir de la cellules find en prenant toutes la ligne et allez dans un autre tableau sous la premier ligne dispo en dessous de B4
car le code bug sur le range

merci d'avance

Bonjour,
Joins un petit fichier pour illustrer ce que tu souhaites faire.
Cdlt.

Nouvel essai,

Sub cut_paste()
dl = Sheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1 'colonne à adapter
Sheets("Keycar").Activate
Range("ListKey0").Find(CbCars.Value).Select
If Not ActiveCell.ListObject Is Nothing Then
Set lo = ActiveCell.ListObject
lRow = ActiveCell.Row - lo.HeaderRowRange.Row
Set lr = lo.ListRows(lRow)
lr.Range.Cut (Sheets("Keycar").Range("H" & dl)) 'colonne à adapter
End If
End Sub

Bonjour,
2 interprétations de la demande.
Cdlt.

bonjour deja merci je regarde ça se soir et vous tiens au courant

RE bonjour

Les codes marche nickel mais pas soucis de facilité j'ai imbriquer le code et changer celui de Thrrybo

Un Tout grand merci pour votre aide je peux finaliser mon doc .

A+