Copier coller ...

[Alex]

Bonjour a tous,

Voila je parviens a réaliser un copier coller sans probléme et heureseement !!

par ce code :
.Range('A' & 2 + i & ':' & 'l' & 2 + i).Select
Selection.Copy
Sheets('TRI PAR CLIENT HP 103915').Activate
Sheets('TRI PAR CLIENT HP 103915').Range('a65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

VOila néanmoins je voudrait pouvoir copier a partir d'une ligne qui est la ligne aprés la derniére non vide

Voyez vous comment faire??

Merci d'avance

 

[coco_lapin]

Bonjour à tous.

Ce code permet de détecter la dernière ligne utilisée.


Dim DernLignTableau As Long

DernLignTableau = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Count).Row

 

[Creepy]

Bonjour le Forum,Alex,

Ci dessous la réponse. je me suis permis aussi de corriger le première ligne il y avait des ' et un & de trop !

Range('A' & 2 + i & ':L' & 2 + i).Select
Selection.Copy
Sheets('TRI PAR CLIENT HP 103915').Activate
fin = Sheets('TRI PAR CLIENT HP 103915').Range('A65535').End(xlUp).Row + 1
Range('A' & fin).Select
ActiveSheet.Paste
Application.CutCopyMode = False

@+

Creepy

 

[MichelXld]

bonjour Alex , Coco_Lapin et Creepy

la meme version que Creepy , sans Select

Range('A' & 2 + i & ':L' & 2 + i).Copy
fin = Sheets('TRI PAR CLIENT HP 103915').Range('A65535').End(xlUp).Row + 1
Sheets('TRI PAR CLIENT HP 103915').Range('A' & fin).PasteSpecial
Application.CutCopyMode = False



bonne journée
MichelXld