Aller sur la cellule de l'Objet

Roland_M

XLDnaute Barbatruc

• 27 Mai 2008

• #2

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Mai 2008

• #3

Re : Aller sur la cellule de l'Objet

Bonjour Roland

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

 

Pièces jointes

• Rectangle_Clic.xls

  17 KB · Affichages: 68
• Rectangle_Clic.xls

  17 KB · Affichages: 68
• Rectangle_Clic.xls

  17 KB · Affichages: 67

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Mai 2008

• #4

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.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 27 Mai 2008

• #5

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Mai 2008

• #6

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).

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Mai 2008

• #7

Re : Aller sur la cellule de l'Objet

Bonsoir,

Code:

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

JB
Formation Excel VBA JB

 

Pièces jointes

• Rectangle_Clic.xls

  19 KB · Affichages: 59
• Rectangle_Clic.xls

  19 KB · Affichages: 54
• Rectangle_Clic.xls

  19 KB · Affichages: 60

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Mai 2008

• #8

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.

 

Dernière édition: 7 Juin 2008

Vote positif 0 Vote négatif