Microsoft 365 Copier la dernière ligne rajouté du tableau et la coller dans la dernière ligne d'un autre tableau dans une onglet différent

xUpsilon à dit:

Bonjour,

Quelque chose comme ça, à adapter avec le nom des feuilles et les colonnes utilisées.

VB:

nDerLigSource = Worksheets(Feuille_Source).Range("A" & Rows.Count).End(xlUp).Row
nDerLigDesti = Worksheets(Feuille_Destination).Range("A" & Rows.Count).End(xlUp).Row

Worksheets(Feuille_Source).Range("A" & nDerLigSource & ":F" & nDerLigSource).Copy
Worksheets(Feuille_Destination).Range("A" & nDerLigDesti & ":F" & nDerLigDesti).PasteSpecial

Bonne journée,

PS : Toujours joindre un classeur exemple anonymisé pour recevoir une réponse adéquate et pertinante.

Cliquez pour agrandir...