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