Sintaxis de VBA Sheets.Range con variable de rango

Te paso el archivo, se encuentra en la pestaña Gráficos, cuando haces clic en modificar parámetros, puedes elegir a los empleados que quieres analizar...
He limpiado el código ;)
Pero verás que aún no está terminado...

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

1°) ¿Por qué poner esta línea 3 veces???

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

2°) ¿A cada paso de tu bucle modificas el SetSourceData??
Ten en cuenta que solo se activará el último valor.
3°) Sube tu libro a CiJoint.fr, (posiblemente con datos modificados), veré cómo quieres hacer eso.
--
La experiencia instruye más seguramente que el consejo. (André Gide)
Si te das un golpe con una olla y suena hueco, no necesariamente es la olla la que está vacía. ;-)(Confucio)
NOTA: No respondo a mensajes privados para preguntas técnicas.
Esto debe ocurrir en el foro para que todos puedan participar o beneficiarse.

Pero no, es fácil..
1°) Establecer una variable pública, por ejemplo NomGraph como String.
2°) Probar:

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

Posible que sea necesario activar la hoja o el gráfico, no he probado.
PD: No olvides vaciar la variable NomGraph si eliminas el gráfico.
La experiencia instruye más seguramente que el consejo. (André Gide)
Si te topas con una olla y suena hueca, no necesariamente la olla está vacía. ;-)(Confucio)
NOTA: No respondo a mensajes privados para preguntas técnicas.
Esto debe ocurrir en el foro para que todos puedan participar o beneficiarse.

Sí, es lo que me parecía... tengo que poner eso en marcha y te mantendré informado, muchas gracias.

No solo tengo una idea, sino que ya te he dado la respuesta aquí
--
La experiencia enseña más seguro que el consejo. (André Gide)
Si te chocas contra un tarro y suena hueco, no es necesariamente el tarro el que está vacío. ;-)(Confucio)
NOTA: No respondo a los MP para preguntas técnicas.
Esto debe ocurrir en el foro para que todos puedan participar o beneficiarse.

Hola lermitte,

Gracias por tu pequeño post que, además, me ha sido muy útil, pero tengo una pequeña problemática simpática:

Mi gráfico se hace de la siguiente manera:

He creado un userform en el que hay casillas de verificación (15 en total...)
Por el momento, si marco 2 casillas de verificación, mi macro me genera dos gráficos (uno por cada casilla...)
Lo que busco hacer es que cuando marco dos casillas de verificación, los resultados lleguen en el mismo gráfico.
Te paso mi macro para que entiendas mejor,

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 = "Análisis del tiempo de trabajo:" & 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

Como ves, es un lío, pero funciona bien, limpiaré más tarde las líneas repetidas...

Mi base de datos es así:

En la columna F, tengo el nombre de la persona, en O, su tiempo de trabajo, y en P, el tiempo de trabajo que debe realizar... Mhmhmhmh un buen control de gestión dirás ;)
Cada casilla de verificación representa a un empleado.

Efectivamente, me genera Charts.add en cada bucle... normal, pero no veo cómo podría evitarlo.

Espero que esté claro,

Si tienes alguna idea...

Gracias.

Bueno, si modificas el rango y el gráfico no está activo, no funciona bien, por supuesto.
Debes conocer el nombre del gráfico, para eso, haces clic derecho sobre el gráfico >> Asignar una macro, deberías tener en la primera línea "Gráfico XX_CuandoClic" donde XX es un número.
Memoriza el N°. y...

 ActiveSheet.ChartObjects("Gráfico XX").Activate ActiveChart.SetSourceData Source:=Sheets("Cálculo").Range("A" & q & ":B" & q)

Esto lo he probado y funciona.

La experiencia instruye más seguramente que el consejo. (André Gide)
Si te chocas con un tarro y suena hueco, no necesariamente es el tarro el que está vacío. ;-)(Confucio)
NOTA: No respondo a los MP por cuestiones técnicas.
Esto debe ocurrir en el foro para que todos puedan participar o beneficiarse.

tanto por mí, está bien, gracias

No funciona.

Hola,

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

No lo he probado, pero inténtalo.
Hasta luego
La experiencia enseña más seguramente que el consejo. (André Gide)
Si te das con un jarrón y suena hueco, no necesariamente es el jarrón el que está vacío. ;-)(Confucio)
NOTA: No respondo a MP para preguntas técnicas.
Esto debe ocurrir en el foro para que todos puedan participar o beneficiarse.