C
CARO08
Guest
je cherche à trouver la dernière ligne qui vient d'être saisie d'un tableau, sélectionner tte cette ligne pour pouvoir ensuite effectuer un contenu ds une autre feuille.
voici ou j'en suis:
Sub Bouton8_QuandClic()
'Fiche d entretien
Dim Plage As Range
Dim selection As Long
Dim L As Range
On Error GoTo fin
'Row(Range('A65530').End xlUp).Row).Selection
L = Range('A65535').End(xlToUp).Row
L.copy
Sheets('fiche_entretien').Select
Range('D2').Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
fin:
End Sub
Merci par avance
caro
voici ou j'en suis:
Sub Bouton8_QuandClic()
'Fiche d entretien
Dim Plage As Range
Dim selection As Long
Dim L As Range
On Error GoTo fin
'Row(Range('A65530').End xlUp).Row).Selection
L = Range('A65535').End(xlToUp).Row
L.copy
Sheets('fiche_entretien').Select
Range('D2').Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
fin:
End Sub
Merci par avance
caro