recherche dernière ligne

[Patrick]

Bonjour,
Je cherche un code permettant de trouver la dernière ligne d'un tableau sur la première colonne. Ensuite copier cette dernière ligne et l'insérer sur la première ligne

 

[Johan]

Bonjour Patrick,

voici un code qui pourra t'aider, attention, dans mon code je dis que ta première ligne est A1

Range("A65536").Select
Selection.End(xlUp).Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste

Penses à utiliser l'enregistreur Macro's

Johan

 

[ms18]

autre exemple de code :

Sub Macro1()
Cells(1, 1).Select
Selection.SpecialCells(xlLastCell).Select '=> recherche de la dernière ligne déjà utilisée dans la feuille
Rows(ActiveCell.Row).Select
Selection.Copy 'mémorisation en copie de la ligne

Cells(ActiveCell.Row, 1).Select
Selection.End(xlUp).Select '=> recherche de la 1ere ligne du tableau (hypothèse : pas de cellule vide dans la 1ere colonne)

Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown
End Sub