Microsoft 365 Recherche l'adresse d'un graphique style A1

[MJ13]

Bonjour à tous

je voudrais trouver l'adresse, style A1, du coin haut et gauche d'un graphique sélectionné avec ce code

ActiveSheet.ChartObjects(1).select

Après recherche sur le net, je n'ai pas trouvé!

Merci d'avance

 

[MJ13]

Désolé, mais après une recherche avec Address au lieu de Adresse, j'ai trouvé un code intéressant, et même 2, avec un autre pour pouvoir placer un graphique dans une plage de cellule.

Sub Adress_Graph()
'https://www.mrexcel.com/board/threads/vba-find-top-left-cell-of-an-active-chart.858467/
'Try it like this...

MsgBox ActiveSheet.Shapes(ActiveChart.Parent.Name).TopLeftCell.Address

'or like this...

'MsgBox ActiveSheet.ChartObjects(ActiveChart.Parent.Name).TopLeftCell.Address
End Sub

Sub Test_Place_graph_dans_Plage()
'https://fr.extendoffice.com/documents/excel/4981-excel-chart-absolute-position.html
'Adapter le graphique à une plage
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:K20")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

 

[Victor21]

Bonjour, MJ13

Un lien ?

 

[MJ13]

Bonjour et merci Victor, mais celui là je ne l'avais pas trouvé!