Cellule source ?

[Creepy]

Bonjour à tous,

Le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

Me donne l'adresse de la cellule sélectionnée lorsque je bouge. Mais je voudrais connaitre la cellule Source.

Par exemple je quis en A1 et je vais en A2. Le code ci-dessus me renvoie A2, Mais je voudrais savoir aussi que j'etais en A1 avant.

Comment faire ?

Merci d'avance, bonne journée.

Creepy

 

[Pierrot93]

Re : Cellule source ?

Bonjour Creepy

si j'ai bien compris, peut être en utilisant une variable static :

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

bon dimanche.
@+

 

[Creepy]

Re : Cellule source ?

Merci bcp ca marche j'y avais pas pensé !

Creepy

 

[BOISGONTIER]

Re : Cellule source ?

Bonjour,

L'adresse de la cellule est mémorisée dans un nom de champ.
Ceci permet de visualiser l'adresse de la cellule précédente dès l'ouverture du classeur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error Resume Next
  If [mémoAdresse] <> "" Then MsgBox [mémoAdresse]
  ActiveWorkbook.Names.Add Name:="mémoAdresse", RefersToR1C1:="=" & Chr(34) & Target.Address & Chr(34)
End Sub

JB