adresse de cellule selectionnée

[mariobross]

bonjour.

y à t il une solution pour renvoyer dans une cellule donnée l'adresse de la selection en cours ?

ex:dans la cellule a1 , si je selectionne b1 , "b1"est renvoyé dans a1
si je sélectionne b2, "b2" est renvoyé dans a1


merçi pour votre attention.

 

[Hervé]

Bonjour

Un exemple de macro à placer dans l'onglet de la feuille souhaité (clic droit sur le nom de l'onglet, puis visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'cellule de destination= adresse de la cellule active
Range("a1").Value = Target.Address(0, 0)
End Sub

Salut
Hervé

 

[mariobross]

merci pour la réponse cela fonctionne trés bien !