Afficher la cellule suivante dans la même colonne

marmotte18 · 12 Avril 2008

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 · 12 Avril 2008

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 · 12 Avril 2008

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

Bonjour Marmotte

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

Code:

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

bonne journée
@+

Afficher la cellule suivante dans la même colonne

marmotte18

XLDnaute Impliqué

marmotte18

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Discussions similaires