Copier la derniere Ligne VIDE

[bibbip35]

Bonjour à tous

Je souhaiterais réaliser par macro

Une copie de la dernière ligne NON vide des cellules de A à E
jusqu'à la dernière ligne NON VIDE correspondant a la colonne F

Merci à tous

BIBBIP35

 

[mutzik]

Re : Copier la derniere Ligne VIDE

bonjour

dans un module standard

Sub copie()Dim derligA, derligF


derligA = Range("A" & Rows.Count).End(xlUp).Row
derligF = Range("F" & Rows.Count).End(xlUp).Row
If derligA >= derligF Then Exit Sub
Range("A" & derligA & ":E" & derligA).Copy Range("A" & derligA & ":E" & derligF)


End Sub

 

[bibbip35]

Re : Copier la derniere Ligne VIDE

Merci BERTRAND

Ca fonctionne parfaitement