Copier dernière ligne coller autre feuille dernicellule vide

Bonjour,

Problématique :

1) Feuille "Adhérents" saisies infos ligne après ligne au fur et à mesure des adhésions dans les colonnes A:M

2) même classeur "fichier global" et mêmes colonnes A:M

Question :

Comment copier la dernière ligne (colonne A:M) saisie de la feuille "Adhérents" N° de ligne bien sûr qui évolue

vers la première ligne vide de la feuille "fichier global" colonnes A:M N° de ligne qui change a chaque nelle saisie

Merci (débutant en macro)

Cordialement

bonjour,

une correction pour ne prendre en compte que les colonnes A à M

1) code et /code, ce sont des balises du forum, qui ont été doublées par erreur.

2) tu peux remplacer test par transfert

3) tu peux mettre ce code dans thisworkbook ou dans un nouveau module (menu>insérer>module)

Sub test()
Set ws = Worksheets("Adhérents")
Set wc = Worksheets("fichier Global")
dls = ws.Range("A" & Rows.Count).End(xlUp).Row
dlc = wc.Range("A" & Rows.Count).End(xlUp).Row
ws.Range("A" & dls &":M" & dls).Copy wc.Range("a" & dlc + 1)
End Sub

Merci pour la rapidité,

Cela fonctionne en partie.

je m'explique, il recopie bien au bon endroit, mais au lieu de ne prendre en compte que les colonnes A:M de la dernière ligne, il copie également toutes les colonnes suivantes (écrasant les données figurant dans les colonnes suivantes N à .... de la bonne ligne considérée).

Par ailleurs (je précise que je débute en macro)

j'ai enregistré ce code dans "ThisWorkbook" est ce bon endroit

Que signifie [code]Sub test() Code je l'ai supprimé et laissé Sub test() , idem à la fin remplacé par End Sub (ai je bien fait)

Puis je remplacer Sub test() par Sub nom donné à ma macro () part exemple Sub transfert()

Bonne soirée

Merci de compléter ma formation

Cordialement

Seychelles85

bonjour,

une correction pour ne prendre en compte que les colonnes A à M

1) code et /code, ce sont des balises du forum, qui ont été doublées par erreur.

2) tu peux remplacer test par transfert

3) tu peux mettre ce code dans thisworkbook ou dans un nouveau module (menu>insérer>module)

Sub test()
Set ws = Worksheets("Adhérents")
Set wc = Worksheets("fichier Global")
dls = ws.Range("A" & Rows.Count).End(xlUp).Row
dlc = wc.Range("A" & Rows.Count).End(xlUp).Row
ws.Range("A" & dls &":M" & dls).Copy wc.Range("a" & dlc + 1)
End Sub

grand merci,

cela fonctionne parfaitement

la classe bonne journée

Seychelles85