Macro copier dernière ligne non-vide + coller

Question

Bonjour, 

J'en suis à mes début dans l'élaboration de macros dans Excel 2010.
Voici ce que j'aimerais faire : 

J'aimerais me créer une macro qui va prendre la dernière ligne non-vide d'un tableau et la colle sur les deux lignes suivantes du même tableau.

Merci en avance!

PS, savez-vous comment le faire en utilisant l'enregistreur de macro?

Configuration: Windows 7 / Internet Explorer 9.0

Morgothal · Answer

Bonsoir,
Une petite recherche et... Hop !
https://forums.commentcamarche.net/forum/affich-25287750-formule-miracle-dans-une-macro-svp#p25291851

A+

Ari Seldon · Answer

Voici une macro qui cherche la derniere ligne non vide (par rapport à la colonne E
puis qui copie la l'avant-derniere ligne, insère une ligne entre l'avant-derniere let la derniere et recopie les formules copiées sur cette nouvelle ligne :

Sub AJout_ligne()
'
' permet de definir la fin réelle de la feuille - en cas de supression de ligne ...
'
ActiveSheet.UsedRange
'
    DerniereLigne = (Range("E1").SpecialCells(xlCellTypeLastCell).Row)
ligne = DerniereLigne - 1
Rows(ligne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
   ActiveSheet.Paste

End Sub

Dans ton cas tu  modifies :

Rows(DerniereLigne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
   ActiveSheet.Paste
Selection.Copy
Selection.Insert Shift:=xlDown
   ActiveSheet.Paste

Bon courage

Macro copier dernière ligne non-vide + coller

2 réponses

Votre réponse

Discussions similaires

Newsletters