Récupérer la cellule active

Bonjour,

J'ai du code avec des .select, ce qui change la cellule active.

J'aimerais avant de lancer mon code, récupérer les coordonnées de la cellule active, exemple D25, pour pouvoir à la fin de mon code, aller à cette cellule avec Range("D25").Select

Merci d'avance

J'ai trouvé pour la lettre

Code:

---

1 2	Mid(ActiveCell.Address, 2, Len(ActiveCell.Address) - _ Len(CStr(ActiveCell.Row)) - 2)

---

Pour le chiffre, c'est

Code:

---

ActiveCell.Row

---

Bonjour,

99% des .select sont inutiles en plus de ralentir l'ensemble.
Vise plutôt à les banir.

Et tu te compliques bien la vie...

Code:

---

1 2 3 4 5

Dim origin as range set origin = activecell 'sauvegarder ' bla bla bla origin.select 'rétablir set origin= nothing

---

eric