copier les trois dernieres lignes

Bonsoir,

x = [A:E].Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Row 'dernière ligne
Cells(x - 2, 1).Resize(3, 5).Copy Sheets(2).Cells(1, 1)

JB

bonsoir à tous
je suis à la recherche d'une formule qui me permettrait de copier les 3
dernieres lignes sur 5 colonnes d'une feuille pour les insérer dans une
nouvelle feuille.

ceci pour faciliter la construction de mes graphs par la suite
ceci sachant que mes feuilles ont un nombre de lignes variables.
je sais me positionner sur la premiere cellule dispo, si ceci peut vous a ider

merci pour votre collaboration

bonne soirée à tous

Jacks dit LEMATOU

Merci pour ton attention JB
mais j'ai le message suivant:
erreur d'exécution 9
l'indice n'appartient pas à la sélection sur
Cells(x - 2, 1).Resize(3, 5).Copy Sheets(2).Cells(1, 1)

par contre il ne veut pas des deux premieres lignes mais estce nécessaire
puisque je suis déjà sur la 1ere cellule de la derniere ligne

merci beaucoup
pas facile d'être novice et d'avoir des ambitions
a bientot
Jacks

Bonsoir,

Feuil1 étant la feuille source
Feuil2 la feuille destination
A adapter.
'----------
Sub jj()
derlC = Sheets("feuil1").Range("a65536").End(3).Row
derlD = Sheets("feuil2").Range("a65536").End(3).Row + 1
Range("a" & derlC - 2 & ":e" & derlC).Copy
Sheets("feuil2").Range("a" & derlD + (derlD = 2)).PasteSpecial
Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

'----------
Salutations
JJ

"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news:44AE48E5-15C3-400C-9FC6-F426F1DAC5A5@microsoft.com...

bonsoir à tous
je suis à la recherche d'une formule qui me permettrait de copier les 3
dernieres lignes sur 5 colonnes d'une feuille pour les insérer dans une
nouvelle feuille.

ceci pour faciliter la construction de mes graphs par la suite
ceci sachant que mes feuilles ont un nombre de lignes variables.
je sais me positionner sur la premiere cellule dispo, si ceci peut vous
aider

merci pour votre collaboration

bonne soirée à tous

Jacks dit LEMATOU

merci à tous c'est cool
je crois que je ne sais ce que j'aurais fait si je n'avais connu ce site.
vous êtes tous tres cool et en plus on avance tres vite avec vous

un grand MERCI a tous
Jacks dit le Matou

Bonsoir,

Feuil1 étant la feuille source
Feuil2 la feuille destination
A adapter.
'----------
Sub jj()
derlC = Sheets("feuil1").Range("a65536").End(3).Row
derlD = Sheets("feuil2").Range("a65536").End(3).Row + 1
Range("a" & derlC - 2 & ":e" & derlC).Copy
Sheets("feuil2").Range("a" & derlD + (derlD = 2)).PasteSpecial
Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

'----------
Salutations
JJ

"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news:44AE48E5-15C3-400C-9FC6-F426F1DAC5A5@microsoft.com...

bonsoir à tous
je suis à la recherche d'une formule qui me permettrait de copier les 3
dernieres lignes sur 5 colonnes d'une feuille pour les insérer dans une
nouvelle feuille.

ceci pour faciliter la construction de mes graphs par la suite
ceci sachant que mes feuilles ont un nombre de lignes variables.
je sais me positionner sur la premiere cellule dispo, si ceci peut vous
aider

merci pour votre collaboration

bonne soirée à tous

Jacks dit LEMATOU