Recherche de la dernière cellule renseignée à droite

[Hugues]

Bonjour Le Forum,

Je souhaiterais connaitre le code afin de positionner le curseur sur la dernière cellule renseignée à droite de la ligne 6.

A ce jour, je n'ai trouvé que le code me permettant d'activer la colonne mais pas uniquement la cellule.

Private Sub Worksheet_Activate()
'recherche de la dernière colonne renseignée
dercolonne = Range("HK6").End(xlToLeft).Column
'MsgBox (dercolonne)
Columns(dercolonne + 1).Select
End Sub

Merci par avance pour votre aide,

Hugues

 

[Efgé]

Re : Recherche de la dernière cellule renseignée à droite

Bonjour Hugues

[COLOR=blue]Sub[/COLOR] test()
Range("HK6").End(xlToLeft).Activate
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[Hugues]

Re : Recherche de la dernière cellule renseignée à droite

Merci Efgé,
Maintenant je souhaiterais positionner le curseur sur la cellule aprés la dernière renseignée.
Avez vous une idée ?

Merci par avance,

hugues

 

[Efgé]

Re : Recherche de la dernière cellule renseignée à droite

Re

[COLOR=blue]Sub[/COLOR] test2()
[COLOR=green]'recherche de la dernière colonne renseignée[/COLOR]
dercolonne = Range("HK6").End(xlToLeft).Column
[COLOR=green]'MsgBox (dercolonne)[/COLOR]
Cells(6, dercolonne + 1).Select
[COLOR=blue]End Sub[/COLOR]

Que l'on peut réduire à

[COLOR=blue]Sub[/COLOR] test2()
Cells(6, Range("HK6").End(xlToLeft).Column + 1).Select
[COLOR=blue]End Sub[/COLOR]

Cordialement