Discussion :

[balthior]

Bonjour a tous

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.End(xlDown).Select

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

Marie

[wilfried_42]

Bonjour bathior

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Salutations

[balthior]

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

[wilfried_42]

Bonjour bathior


Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Salutations

[wilfried_42]

re:


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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