Aller sur la cellule de l'Objet

[MJ13]

[Résolu] Aller sur la cellule de l'Objet

Bonjour,

J'ai 10 rectangles chacun sur une cellule. Comment faire en macro pour que, si je clique sur un rectangle, j'aille directement sur la cellule contenant le rectangle.

Je pensais attribuer une macro à un premier rectangle que je recopierai sur les autres cellules à prendre en compte.

Mais après quel est le code le plus simple: Mystère!

Merci d'avance

 

[Roland_M]

Re : Aller sur la cellule de l'Objet

bonjour

comprends pas bien !?
si tu cliques sur un rectangle qui est déjà sur une cellule,
tu es donc déjà sur cette cellule !?

Roland

 

[MJ13]

Re : Aller sur la cellule de l'Objet

Bonjour Roland

Voici un exemple de fichier pour mieux comprendre ma problèmatique.

 

[MJ13]

Re : Aller sur la cellule de l'Objet

Re bonjour à tous,

La je sêche, un petit up pour la forme (enfin pour l'objet).

Merci d'avance.

 

[skoobi]

Re : Aller sur la cellule de l'Objet

Bonsoir MJ13,

pour connaître la cellule d'un objet utilise la propriété topleftcell comme ceci:

ActiveSheet.Shapes("Rectangle 1").topleftcell.address pour l'addresse
ActiveSheet.Shapes("Rectangle 1").topleftcell.value pour la valeur
etc...

Je sais pas si ça répond à ta question.

 

[MJ13]

Re : Aller sur la cellule de l'Objet

Bonjour Skoobi,

Merci pour ta réponse.

En fait je voudrais que quand je clique sur une forme, je puisse connaître l'adresse de la cellule où se trouve la forme sélectionnée ainsi je pourrais déterminer la valeur contenu dans cette cellule.

Si cela inspire quelqu'un (en fait cela ouvrirait de nombreuses possibilités de macros).

 

[BOISGONTIER]

Re : Aller sur la cellule de l'Objet

Bonsoir,

Sub Va_cellule()
  nomshape = Application.Caller
  x = ActiveSheet.Shapes(nomshape).TopLeftCell.Address
  MsgBox x 
 End Sub

JB
Formation Excel VBA JB

 

[MJ13]

Re : Aller sur la cellule de l'Objet [Résolu]

Bonjour jacques, le forum.

Merci beaucoup, je ne l'aurai pas trouvé tout seul.

Encore une fois, j'apprécie toujours tes interventions qui vont droit au but.

J'ai rajouté

Valeur = Range(x).Value pour avoir la valeur de la cellule sous la forme.

Cela va me servir.

Bonne journée.