Afficher la cellule suivante dans la même colonne

[marmotte18]

Bonjour,

J'ai une procédure qui m'active la dernière cellule de la colonne A non vide.
Je souhaiterai en fait que le curseur se place sur la cellule suivante dans la même colonne.

Sub essai()
Dim Cellule As Range
Set Cellule = Range("A65536").End(xlUp)
Cellule.Activate
End Sub

Merci par avance

 

[marmotte18]

Re : Afficher la cellule suivante dans la même colonne

Bonjour,

Je viens de trouver la réponse :


Sub essai()
Dim Cellule As Range
Set Cellule = Range("A65536").End(xlUp)
Cellule.Activate
Cells(ActiveCell.Row + 1, 1).Select
End Sub

 

[Pierrot93]

Re : Afficher la cellule suivante dans la même colonne

Bonjour Marmotte

une autre solution en utilisant la propriété "offset" :

Set Cellule = Range("A65536").End(xlUp).Offset(1, 0)

bonne journée
@+