Discussion :

[Crachover]

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

[Crachover]

J'ai trouvé pour la lettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour le chiffre, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Row

[eriiic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim origin as range
set origin = activecell 'sauvegarder
' bla bla bla
origin.select 'rétablir
set origin= nothing

eric