Bonjour,
Un exemple à adapter et à intégrer dans ta procédure.
Cdlt.
Public Sub MAJ_Graphique()
Dim rng As Range, rngChart As Range
Dim objChart As ChartObject
With ActiveSheet
Set objChart = .ChartObjects(1)
Set rng = .Cells(26, 2).CurrentRegion
Set rngChart = rng.Offset(, 2).Resize(, rng.Columns.Count - 2)
With objChart.Chart
.SetSourceData Source:=rngChart, PlotBy:=xlRows
End With
End With
Set objChart = Nothing: Set rngChart = Nothing: Set rng = Nothing
End Sub
Re,
Bon après fermeture et réouverture du fichier, petits soucis.
Je regarde !
Re,
Non c'est OK !
Je vais prendre un café.