connaitre position de l'avant derniere cellule active

[néné06]

Bonsoir à toutes et tous.

Actuellement, pour connaitre la position de la cellule active, j'utilise
X= Activecell.address.
pour connaitre l'ancienne position, de la précédente cellule active, je me sert de variable ,que je charge à chaque changement de position par la routine Worksheet_SelectionChange.
Je me demandais s'il n'existait pas une instruction du style
"Last.Activecell.address" qui me donnerait la position de l'ancienne cellule active.

Si vous pouviez m'éclairer sur ce thème.


D'avance merci !!

 

[job75]

Re : connaitre position de l'avant derniere cellule active

Bonsoir néné06,

Mémoriser, mémoriser, y a que ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ThisWorkbook.Names
  .Add "AvantDercel", [Dercel]
  .Add "Dercel", ActiveCell.Address
End With
End Sub

Edit : salut kjin, même minute 🙂
A+

 

[kjin]

Re : connaitre position de l'avant derniere cellule active

Bonsoir,
Peut-être comme ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto ActiveCell
On Error Resume Next
MsgBox Application.PreviousSelections(LBound(Application.PreviousSelections) + 1).Address
End Sub

A+
kjin

 

[néné06]

Re : connaitre position de l'avant derniere cellule active

Bonsoir job75,kjin

Un grand merci à vous deux pour m'avoir indiqué ce code .
Cela m'évitera donc de passer par mes variables temporaires, comme je faisais jusqu'à présent.

Merci!!!

 

[laetitia90]

Re : connaitre position de l'avant derniere cellule active

bonsoir néné06 , job75 , kjin
une autre facon de l'ecrire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static c As Range
If Not c Is Nothing Then MsgBox c.Address
Set c = Target
End Sub

 

[néné06]

Re : connaitre position de l'avant derniere cellule active

Bonsoir Laeticia90

Un grand merci à toi et toujours ravi de te croiser, sur le Fil

A+