curseur sur derniere ligne d'une colonne pleine

[phil69]

bonjour a toutes et tous

j'ai une macro qui me rempli toujour la derniere ligne d'une colonne et je voudrai que le curseur se positionne sur cette ligne

ma macro

x = Range("b1")
Range("a1").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell = x
End Sub

qu'elle modife ou rajout pour que le curseur ne reste pas en b1 mais sur la dernier ligne pleine ou la premiere vide

merci d'avance à votre matiere grise

phil69

 

[criscris11]

Re : curseur sur derniere ligne d'une colonne pleine

Bonjour,
Cette instruction positionne le curseur sur la dernière cellule remplie de la colonne : Selection.End(xlDown).Select
Essaies et dis-nous.
Bon après-midi.

 

[abc]

Re : curseur sur derniere ligne d'une colonne pleine

Bonjour,
même chose que criscris11
une variante avec un double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.Goto REFERENCE:="R300C2"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("a1").Select
A +
End Sub

 

[phil69]

Re : curseur sur derniere ligne d'une colonne pleine

merci à vous deux ,ça marche impec

bon week à tous

phil69