Mise à jour source de données d'un graphique

[Vincent]

Bonjour,

Je souhaite mettre à jour dynamiquement la zone de données d'un graphique par macro mais la macro plante sur la définition de la zone

Une idée ? merci d'avance

Dim Mysheet As Variant
Set Mysheet = Worksheets('Responsable')
Mysheet.Activate
Dim volRange As Variant
Set volRange = Mysheet.Range(Cells(ln, cl - 1), Cells(lnX + 1, cl))
Worksheets('Theme').Activate
ActiveSheet.Chart.ChartArea.Select
ActiveSheet.Chart.SetSourceData Source:=volRange, PlotBy:=xlColumns
ActiveSheet.Chart.Refresh
Set volRange = Nothing
Set Mysheet = Nothing

 

[Tenormadness]

salut ,
tu donnes :
Set volRange = Mysheet.Range(Cells(ln, cl - 1), Cells(lnX + 1, cl))
mais si cl n est pas initialisé cl - 1 donne une colonne négative!!! et ça c est pas bon...

 

[Gorfael]

Salut Vincent

Set volRange = Mysheet.Range(Cells(ln, cl - 1), Cells(lnX + 1, cl))

Pas sûr, mais je pense que ça vient de là :
tu prends seulement 2 cellules et pas une plage
essaies avec ça à la place

Set volRange = Mysheet.Range(Cells(ln, cl - 1).address & ':' & Cells(lnX + 1, cl).address)
A+

 

[Vincent]

magnifique la solution était là, il manquait la notion d'adresse.

encore merci, bonne continuation