Dernière ligne

H

Hugues

XLDnaute Impliqué

• 13 Janvier 2006

• #2

Bonsoir,

Ci joint le code

Sub derniere_cellule()

lign = Range('a65536').End(xlUp).Row
Range('a' & lign + 1).Select


End Sub

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 13 Janvier 2006

• #3

Salut,

Sub der()
Dim last As Long
Range('A65000').End(xlUp).Select
End Sub


Patrick

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 13 Janvier 2006

• #4

Sorry Huhes, pas vu ton code

Patrick

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 13 Janvier 2006

• #5

oupssssss, toutes mes confuses

Sub der()
Dim last As Long
Range('A65000').End(xlUp)(2).Select
End Sub

et c'est HUGHES en plus , dsl
Patrick

 

Vote positif 0 Vote négatif