Range sur demande pour un chart
Bonjour!
Je tente de faire un macro qui crée un graphique utilisant des plages au choix de l'utilisateur. Mon idée est de "construire" le range en ajoutant les cellules une par une dans un enchainement de "If check_box=1 then". Après je passe le tout dans les sources du chart.
Cependant comme vous le constaterez, ma syntaxe est assurément erronée mais je ne trouve aucune ressource à ce sujet...
Merci de votre aide!
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
If zvz_box = 1 Then
myNameRange = myNameRange + "G2"
myValueRange = myValueRange + "J2"
End If
If zvt_box = 1 Then
myNameRange = myNameRange + "G3"
myValueRange = myValueRange + "J3"
End If
If zvp_box = 1 Then
myNameRange = myNameRange + "G4"
myValueRange = myValueRange + "J4"
End If
' Blablabla et ensuite déterminer le range du chart en passant la variable
myChart.Chart.SeriesCollection.NewSeries
myChart.Chart.SeriesCollection(1).XValues = Sheets("metadata").Range(myValueRange)
myChart.Chart.SeriesCollection(1).Values = Sheets("metadata").Range(myNameRange)
myChart.Chart.SeriesCollection(1).Name = Sheets("metadata").Range("H1") |