XL 2010 Copier à la suite

[Pensinf4204]

Bonjour ,
j'ai un code pour copier coller des cellules d'une feuille vers une autre la fin (ou suite)
ex: en feuille 1 j'ai des articles Colonne A (Pomme, Poire,Banane,mangue) et en feuille 2 Colonne A (Chou,Courgette,Carotte,Poireau,Laitue)
avec le code je peux prendre les Articles en feuille1 et les copier en feuille 2 à la suite
Seulement il me manque un quelque chose car la copie se fait mais le dernier articles disparait ici Laitue
Merci de toute l'aide que vous pourrez m'apporter
Range("A2", Range("A2").End(xlDown)).Select
Selection.Copy
'Worksheets("Fruits").Paste Destination:=Worksheets("Légumes").Cells(Rows.Count, 1).End(xlUp)

 

[cp4]

Bonsoir,

Range("A2", Range("A2").End(xlDown)).Copy Worksheets("Fruits").Paste Destination:=Worksheets("Légumes").Cells(Rows.Count, 1).End(xlUp).Row+1

Select à éviter, alourdi et ralenti le code pour rien.
Il fallait mettre .Row pour récupérer la dernière ligne non vide et ajouter 1 pour se plaçait sur la ligne du dessous.

Bonne soirée.

 

[Pensinf4204]

merci pour votre réponse J'ai une erreur "La méthode copy de la classe range a échoué"
Range("A2", Range("A2").End(xlDown)).Copy Worksheets("Fruits").Paste Destination:=Worksheets("Légumes").Cells(Rows.Count, 1).End(xlUp).Row+1
j'ai essayer de placer des parenthèses rien y fait
pas très grave Staple160 ma donné une solution

 

[Staple1600]

Bonjour le fil

Staple1600 je connais
Mais Staple160, c'est pas mon frère

 

[Phil69970]

Bonjour le fil

Spoiler

Staple160 c'est Mr 10%
Ok je sors
Pas la tête pas la tête

@Phil69970

 

[Staple1600]

Bonjour à toi, camarade Phil

Il manquerait pas la suite de ton message, par hasard?

 

[Phil69970]

Bonjour camarade 100%

C'était juste un aparté hors sujet comme tu aimes bien en faire !

@Phil69970

 

[Staple1600]

Re

=>Phil69970
Ok
bah alors je te repasse le bâton de parole.
Je suis sûr (ou pas) que tu pourrais nous parler des risques encourus lorsqu'on utilise cette syntaxe, non?

Range("A2", Range("A2").End(xlDown))

 

[Phil69970]

Re

Mes limites en excel étant largement inférieur aux tiennes... je dirais quand même que la sélection partant du haut vers le bas à la 1ere cellule vide la sélection s’arrête .

@Phil69970

 

[Staple1600]

Re

Je n'aurais pas mieux dit
Si malencontreusement, il y a "un trou" dans la colonne, il pourrait y avoir des effets de bord.

J'ajouterai donc juste ce petit exemple

Sub exemple()
[A1] = 1600: [A1:A5].DataSeries: [A9:A11] = Application.UserName: [A15:A20] = "=ROW()"
MsgBox Range("A2", Range("A2").End(xlDown)).Address, vbCritical, "Achtung, Baby!"
MsgBox Range([A2], Cells(Rows.Count, "A").End(xlUp)).Address, vbInformation, "And Now for Something Completely Different"
End Sub