Dernière ligne

[piep14]

Bonsoir, je souhaite me positionner dans la derniere cellule de la colonne A (juste après le dernier enregistrement)

Merci

 

[Hugues]

Bonsoir,

Ci joint le code

Sub derniere_cellule()

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


End Sub

 

[pat1545.]

Salut,

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


Patrick

 

[pat1545.]

Sorry Huhes, pas vu ton code

Patrick

 

[pat1545.]

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