Macro copier dernière ligne non-vide + coller
Ezeflow
Messages postés
2
Statut
Membre
-
Ari Seldon Messages postés 1 Statut Membre -
Ari Seldon Messages postés 1 Statut Membre -
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?
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?
2 réponses
-
Bonsoir,
Une petite recherche et... Hop !
https://forums.commentcamarche.net/forum/affich-25287750-formule-miracle-dans-une-macro-svp#p25291851
A+ -
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
