Mise à jour graphique

[Alguiche]

Bonsoir à toutes et à tous,

Je voudrais pouvoir faire une mise à jour de mon graphique par macro, mais je n'arrive pas à trouver la bonne formulation pour inclure ma variable dans le range (voir module3).

J'ai essayé comme ça mais il bogue...

Sub MaJGraph()

Dim Dercel As Range

Range("A1").Select

Set Dercel = Rows(12).Find(what:="", LookIn:=xlValues)

ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.PlotArea.Select

ActiveChart.SetSourceData Source:=Sheets("StatsM05_06").Range("A3:" & Dercel), _
PlotBy:=xlRows

Range("A3").Select
End Sub

Merci à celle ou celui qui pourra me donner une solution
Al

 

[MichelXld]

Re : Mise à jour graphique

bonjour

tu peux essayer

Sub MaJGraph()
Dim Dercel As Range, Plage As Range
 
Set Dercel = _
    Sheets("StatsM05_06").Range("A12:Y12").Find("", LookIn:=xlValues)
 
Set Plage = _
    Sheets("StatsM05_06").Range(Cells(3, 1), Cells(9, Dercel.Column - 1))
 
ActiveSheet.ChartObjects("Graphique 1").Chart.SetSourceData _
        Source:=Plage, PlotBy:=xlRows
End Sub

bonne journée
MichelXld

 

[Alguiche]

Re : Mise à jour graphique

Bonjour Michel,

Merci beaucoup pour ta suggestion, je vais la mettre en oeuvre de suite

Amitiés
Al