modification de la référence des données graphique via inputbox

[OliverForDan]

Bonjour à tous, comment faire pour élargir la gamme de référence de données via inputbox



via inputbox, élargir la valeur de référence de "R60" à "par expl" 120

ActiveSheet.ChartObjects("Graphique 10").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Values = "=largParClée!R10C26:R60C26"
ActiveChart.SeriesCollection(2).Values = "=largParClée!R10C27:R60C27"
ActiveChart.SeriesCollection(3).Values = "=largParClée!R10C28:R60C28"
ActiveChart.SeriesCollection(4).Values = "=largParClée!R10C31:R60C31"

 

[MJ13]

Re : modification de la référence des données graphique via inputbox

Bonjour OliverForDan

Peut-être comme ce code à adapter:

Lig=inputbox("Ligne maxi?")

...
ActiveChart.SeriesCollection(1).Values = "=largParClée!R10C26:R " & Lig & "C26"

....

 

[OliverForDan]

Re : modification de la référence des données graphique via inputbox

Merci, c'est ok en supprimant l'espace derrière le R (R "==> R")

ActiveChart.SeriesCollection(1).Values = "=largParClée!R10C26:R" & Lig & "C26"

 

[MJ13]

Re : modification de la référence des données graphique via inputbox

Re

Merci, c'est ok en supprimant l'espace derrière le R (R "==> R")

En effet, erreur de frappe .

Bon, si tu as compris çà, tu peux faire de grandes choses avec le VBA .