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

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