XL 2010 Copier cellules a la suite

Pensinf4204 · 30 Janvier 2021

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)

Staple1600 · 30 Janvier 2021

Bonsoir

Test OK chez moi

VB:

Sub test_ok()
Dim feuilleA As Worksheet, feuilleB As Worksheet
Set feuilleA = Worksheets("Fruits")
Set feuilleB = Worksheets("Légumes")
With feuilleA
.Range("A2", .Range("A2").End(xlDown)).Copy feuilleB.Cells(Rows.Count, 1).End(xlUp)(2)
End With
End Sub

Pensinf4204 · 31 Janvier 2021

Merci Staple1600 sa fonction nickel

Staple1600 · 31 Janvier 2021

Re

De rien
C'est Excel et son VBA qui ont tout fait.

XL 2010 Copier cellules a la suite

Pensinf4204

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Pensinf4204

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires