connaitre la position de la cellule actuellement selectionnee

[mimilll]

Bonjour,

je cherche a recuperer les coordonnees de la cellule dans laquelle je me trouve afin qu'apres avoir execute une macro, je puisse y retourner (comme si de rien n'etait).

Cette information est affichee en haut a gauche... il faut juste que j'arrive a la recuperer... et l'editeur de macro ne le fait pas...

Merci beaucoup,
Emilien

 

[Eric 45]

Re : connaitre la position de la cellule actuellement selectionnee

Bonsoir à tous
Bonsoir Emilien

Peut être comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    macell = ActiveCell.Address
'ou
    macell = ActiveCell.Address(0, 0)
End Sub

Eric

 

[Bernard_XLD]

Re : connaitre la position de la cellule actuellement selectionnee

Bonjour

un truc simple
enregistrer ta cellule dans une variable et la rappeler aprés l'exécution du code

@+

Dim Cellule_en_cours As Range
Set Cellule_en_cours = ActiveCell
'macro à exécuter
Cellule_en_cours.Select