VBA Syntax for Sheets.Range with Range Variable

I'll pass you the file, it takes place in the Charts tab, when you click on modify settings, you can choose the employees you want to analyze...
I cleaned up the code ;)
But you'll see it's not finished yet...

http://www.cijoint.fr/cjlink.php?file=cj201102/cijUXDGneu.xlsm

1°) Why put this line 3 times ???

.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)

2°) Each time you loop, do you modify the SetSourceData ??
Keep in mind that only the last value will be activated.
3°) Upload your workbook on CiJoint.fr, (possibly with modified data), I'll see how you want to do this.
--
Experience teaches more certainly than advice. (André Gide)
If you bump into a pot and it sounds hollow, it’s not necessarily the pot that’s empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.
It must take place on the forum so that everyone can participate or benefit.

But no, it's easy..
1°) Set a public variable, for example NomGraph as String.
2°) Test:

 If NomGraph = "" then Charts.Add NomGraph = ActiveChart.Name End If With ChartObjects(NomGraph ) .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q) '......... the rest End With

It may be necessary to activate the sheet or the chart, I haven't tested.
PS: Don't forget to clear the NomGraph variable if you delete the graph.
Experience teaches more surely than advice. (André Gide)
If you bump into a pot and it sounds hollow, it's not necessarily the pot that's empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.
It should take place on the forum so that everyone can participate or benefit.

Yeah, that's what I thought... I need to set that up and I'll keep you posted, thanks a lot.

Not only do I have an idea, but I have already given the answer here
--
Experience teaches more surely than advice. (André Gide)
If you knock on a pot and it sounds hollow, it's not necessarily the pot that's empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.
It should take place on the forum so that everyone can participate or benefit from it.

Hello Lermitte,

Thank you for your little post which was very helpful to me, but I have a small pleasant issue:

My graph is created as follows:

I created a userform with checkboxes (15 in total...)
For now, if I check 2 checkboxes, my macro generates two graphs (one for each checkbox...)
What I'm trying to do is have the results appear in the same graph when two checkboxes are checked.
I'm sending you my macro so you can understand better,

Dim q As Integer
q = 1
For n = 1 To 15
q = q + 1

If Me.Controls("CheckBox" & n).Value = True Then

Dim Nom As Variant
Nom = "=Calcul!$F$3"
Dim TP As Variant
TP = "=Calcul!$O$1"
Dim TF As Variant
TF = "=Calcul!$P$1"

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)
ActiveChart.SeriesCollection(1).XValues = Nom
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphiques"
ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)
ActiveChart.PlotBy = xlColumns
ActiveChart.SeriesCollection(1).XValues = Nom
ActiveChart.SeriesCollection(1).Name = TP
'ActiveChart.SeriesCollection(2).Name = TF
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScaleIsAuto = False
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "Analyse du temps de travail:" & Sheets("calcul").Range("F" & q)
ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)
ActiveChart.PlotBy = xlColumns
ActiveChart.SeriesCollection(1).Name = TP
ActiveChart.SeriesCollection(2).Name = TF
ActiveChart.SeriesCollection(1).XValues = Sheets("Calcul").Range("F" & q)

Else
End If

As you can see, it's quite messy, but it works well; I'll clean up the repeated lines later...

My database is structured like this:

In column F, I have the name of the person, in O, their working time, and in P, the work time they should perform... Hmhmmm good management control, you could say ;)
Each checkbox represents an employee.

Indeed, it will create a Chart on each loop... normal, but I don't see how I could avoid that.

I hope I'm clear,

If you have an idea...

Thank you

Well, if you modify the range and the chart is not active, it obviously doesn't work.
You need to know the name of the chart, to do that, right-click on the chart >> Assign Macro, you should see "Chart XX_WhenClick" or XX is a number on the first line.
You memorize the number and...

 ActiveSheet.ChartObjects("Chart XX").Activate ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("A" & q & ":B" & q)

I tested that and it works.

Experience teaches more surely than advice. (André Gide)
If you bump into a pot and it sounds hollow, it’s not necessarily the pot that’s empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.
It should take place on the forum so that everyone can participate or benefit.

my bad, it works perfectly thanks

Doesn't work.

Hello,

ActiveChart.SetSourceData Source:= Sheets("Calcul").Range("A" & q & ":B" & q)

Not tested but give it a try.
See you later
Experience teaches more surely than advice. (André Gide)
If you bump into a pot and it sounds hollow, it's not necessarily the pot that's empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.
It should take place on the forum so that everyone can participate or benefit.