OVH Cloud OVH Cloud

Position d'une cellule dans une zône nommée

2 réponses
Avatar
mouspi
Bonsoir à tous,

J'ai 2 zônes zOrigine et zCible, de taille identique (même nb de lignes, et
une seule colonne), situées dans des feuilles différentes d'un même
classeur.

La cellule active est située dans zOrigine.

Je souhaite me positionner sur la cellule "homologue", située au m^me
endroit, mais dans zCible.

Existe-t-il une fonction, qui saurait me donner aisément la position de ma
cellule active dans zOrigine ?

J'ai essayé ADDRESS, mais sans succès, et n'ai rien trouvé dans les
newsgroups qui répondrait à ce problême.

Merci à ceux qui ont de bonnes idées.

mouspi

2 réponses

Avatar
Joël GARBE
Bonsoir...

Sub KelCellule()
Dim i As Long
Dim j As Integer
i = ActiveCell.Row - Range("Source").Range("A1").Row
j = ActiveCell.Column - Range("Source").Range("A1").Column
Range("Desti").Select
ActiveCell.Offset(i, j).Activate
End Sub

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"mouspi" a écrit dans le message de news:
%23LwS$
Bonsoir à tous,

J'ai 2 zônes zOrigine et zCible, de taille identique (même nb de lignes,
et une seule colonne), situées dans des feuilles différentes d'un même
classeur.

La cellule active est située dans zOrigine.

Je souhaite me positionner sur la cellule "homologue", située au m^me
endroit, mais dans zCible.

Existe-t-il une fonction, qui saurait me donner aisément la position de ma
cellule active dans zOrigine ?

J'ai essayé ADDRESS, mais sans succès, et n'ai rien trouvé dans les
newsgroups qui répondrait à ce problême.

Merci à ceux qui ont de bonnes idées.

mouspi



Avatar
AV
Sous réserves que les plages soient nommées et que la cellule active (comme dit
dans la question) soit dans la plage "zOrigine":

Sub zzz()
Application.Goto Reference:=[zCible].Item(Application.Match(ActiveCell,
[zOrigine], 0))
End Sub

AV