TopLeftCell d'un graphique

cathodique

XLDnaute Barbatruc

• 24 Juillet 2017

• #2

Bonjour Job75,

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

Bonne journée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2017

• #3

Bonjour cathodique,

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

A+

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 24 Juillet 2017

• #4

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 !

 

Dernière édition: 24 Juillet 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2017

• #5

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+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Juillet 2017

• #6

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

Code:

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

 

Dernière édition: 24 Juillet 2017

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Juillet 2017

• #7

Bonjour à toutes et à tous,

Cher j😀b75,

Que penser de ceci ( ? ) :

Code:

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 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2017

• #8

Bonjour chris,

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

Code:

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+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Juillet 2017

• #9

Re, Coucou 00 🙂

job75 à dit:

Bonjour chris,

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

Code:

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

Ici TopLeftCell renvoie donc bien un Range.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif