TopLeftCell d'un graphique

[job75]

Bonjour le forum,

Sur Win 10 - Excel 2013 j'ai rencontré un problème avec la TopLeftCell d'un graphique.

Apparemment c'est bien un objet Range mais sans toutes ses propriétés.

Par contre aucun problème avec la Shape du graphique.

Fichiers joints, avez-vous le même problème sur les autres versions Excel ?

Bonne journée.

 

[cathodique]

Bonjour Job75,

Avec win7 64 bits et Excel 2010 32 bits, voici l'erreur rencontrée sur l'image.

Bonne journée.

 

[job75]

Bonjour cathodique,

Et merci, j'ai bien le même message chez moi.

A+

 

[Roland_M]

Bien le bonjour tout le monde

même problème avec 2007

la solution:

remplacer: ChartObjects(1).TopLeftCell.Cells(1).Address 'bug

par ceci:

Sub Test2()
MsgBox ChartObjects(1).TopLeftCell.Address(Cells(1).Address)
End Sub


et : MsgBox ChartObjects(1).TopLeftCell.Offset(, 1).Address 'bug

par ceci:

Sub Test3()
MsgBox ChartObjects(1).TopLeftCell.Address(ActiveCell.Offset(, 1).Address)
End Sub


EDIT: réponse à Job (sa réponse qui suit)
effectivement, je pensais simplement qu'il fallait passer out l'erreur en question !
autant pour moi !

 

[job75]

Bonjour Roland,

Tu utilises TopLeftCell.Address qui ne beugue pas (voir le Test1).

Et ce que tu mets dans Address() étant du texte, ce texte est ignoré.

Donc tes codes renvoient toujours $B$4.

A+

 

[chris]

Bonjour

Même chose sur 2010.

Je pense que TopLeftCell est un unique repère de la position du graphique mais le graphique n'étant pas un objet constitué de cellules, ce n'est pas réellement un range.


L'explorateur d'objet ne lui associe pas de cells.

Il faut se référer à la feuille en dessous pour des offset ou autre

Dim macellule As Range
Set macellule = ActiveSheet.Range(ChartObjects(1).TopLeftCell.Address)

Edit : la raison de la différence entre shape et un graphique n'est cependant pas très logique

 

[DoubleZero]

Bonjour à toutes et à tous,

Cher jb75,

Que penser de ceci ( ? ) :

Option Explicit
Sub Test_00()
    MsgBox ChartObjects(1).TopLeftCell.Address(0, 0) & "  -  " & ChartObjects(1).BottomRightCell.Address(0, 0)
End Sub

Mais ce n'est peut-être pas ce que tu cherches.

Bises à chris et job75

A bientôt

 

[job75]

Bonjour chris,

Teste donc ceci, il n'y a aucun problème, comme pour Test1 :

Sub Test5()
Dim c As Range
Set c = ChartObjects(1).TopLeftCell
c.Select
End Sub

Ici TopLeftCell renvoie donc bien un Range.

Edit : hello chère ânesse.

Ce que je cherche à comprendre c'est pourquoi TopLeftCell n'a pas toutes les propriétés d'un Range.

A+

 

[chris]

Re, Coucou 00

Bonjour chris,

Teste donc ceci, il n'y a aucun problème, comme pour Test1 :

Sub Test5()
Dim c As Range
Set c = ChartObjects(1).TopLeftCell
c.Select
End Sub

Ici TopLeftCell renvoie donc bien un Range.

Oui mais pas d'offset non plus... contrairement à macellule...

Comme dit dans l'edit de ma précédente réponse : je ne vois pas pourquoi il y a une différence de traitement entre graph et shape, mais l'explorateur d'objets donne bien une propriété cells à l'un et pas à l'autre.

Mais tout est loin d'être logique chez Microsoft...