Copier coller niveau intermediaire en vba

Bonjour a tous

Je cherche a faire un copier coller dans excel qui me selectionne une ligne donnee

Code:

---

1 2	Rows("4:4").Select Selection.Copy

---

Jusqu' ici tout va bien
Puis qui cherche la premiere ligne vide de ma page excel et qui se place ici pour coller la ligne selectionner plus haute

J'ai vu cela,

Code:

---

Selection.End(xlDown).Select

---

mais je n'arrive pas a l'utiliser
Merci d'avance

Marie

Bonjour bathior

Code:

---

1 2	range(Range("A65536").end(xlup).row +1 & ":" & Range("A65536").end(xlup).row +1).select selection.paste

---

Salutations

Bonjour et merci de votre aide

J'ai un nouveau message sur le Selection.Paste

Objet non gere

Avez vous une idee?
C'est du VBA sius excel 2000.

Merci

Bonjour bathior


Code :

Code:

---

1 2 3

Range(Range("A65536").end(xlup).row +1 & ":" & Range("A65536").end(xlup).row +1).select selection.pastespecial paste:=xlvalues

---

question : Tu reste bien sur la meme feuille ? sinon tu as plus rapide et plus court

Code:

---

sheets("Feuil1").range("4:4").copy destination:=sheets("feuil2").range("A"& Range("A65536").end(xlup).row +1)

---

Salutations

re:


le colage special à fonctionner alors on va faire autrement comme tu es sur la meme feuille

Code:

---

Range("4:4").copy destination:=range("A" & range("A65536").end(xlup).row+1)

---

Il n'y a plus de select, gain de temps

@ te lire