cop-col avec une macro

E

Eric

Guest
Bnjour,

Comment peut-on faire chercher la dernière ligne d'un tableau à une macro pour la copier sur une ligne plus bas ?

D'avance merci
 
S

STéphane

Guest
problème déjà abordé ici, voilà notamment comment tu peux faire

Set rg_plage = Cells
With rg_plage
LastL = rg_plage.Find("*", , , , xlByRows, xlPrevious).Row
LastC = rg_plage.Find("*", , , , xlByColumns, xlPrevious).Column
End With

'sélectionne la dernière ligne
Cells(LastL, LastC).EntireRow.select

'copie exactement la dernière ligne sans incrémenter les formules
'Cells(LastL, LastC).EntireRow.Offset(1).Formula = Cells(LastL, LastC).EntireRow.Formula

'pour copier les formules comme il le faut, utilise la méthode copy

bye
stephane
 

Discussions similaires

Réponses
4
Affichages
292

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG