Copier la dernière ligne et la coller en bas en trois exemplaire

Bonjour
je souhaite copier la dernière ligne du tableau1 et la copier en bas du tableau1 en trois exemplaire
Annotation%202019-09-12%20143632
copier coller en trois exmplaire.xlsm (17,2 Ko)

1 « J'aime »

Bonjour,

Par macro :
SubRecopie()
Ligne = ActiveSheet().UsedRange.Rows.Count
Range(“A” & Ligne & “:D” & Ligne).Copy
Range(“A” & Ligne + 1 & “:A” & Ligne + 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Tu peux ensuite mettre un bouton sur ta feuille que tu associes à la macro.

1 « J'aime »

Merci beaucoup ça marche très très bien

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.