Bonjour,
Je souhaiterai pouvoir à partir de données générer un graphique dans une cellule du tableau en ne faisant pas de sparkline.
Sub position()
Dim xRg As Range
Dim xChart As ChartObject
Dim i As Integer
Set xRg = Range("D" & i + 1)
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
Merci d'avance