Ver originales (Francés)

Sintaxis de VBA Sheets.Range con variable de rango

Resuelto
Nicoroth Mensajes publicados 55 Estado Miembro -  
lermite222 Mensajes publicados 9042 Estado Colaborador -
Hola,

Tengo una pequeña macro de Excel para hacer gráficos, pero estoy atascado en un punto, y debo admitir que después de haber probado mil cosas, mis nervios están empezando a fallar, explico:

Determino mis coordenadas de la siguiente manera:

Set Coord = Range(Cells(q, 15), Cells(q, 16))

para tener:

ActiveChart.SetSourceData Source:=Coord

Sin embargo, mi Coord busca el rango en la hoja donde se crea mi gráfico, pero me gustaría que buscara ese rango en otra hoja. He visto muchas cosas en el foro, pero todavía no encuentro...
He intentado, por ejemplo, algo así:

Set Coord = ThisWorkbook.Sheets("Calcul").Range(Cells(q, 15), Cells(q, 16))

o

Set Coord = ThisWorkbook.Sheets("Calcul").Range(Cells(q, 15), Cells(q, 16)).Value

o incluso

Set Feuille = Sheets("Calcul")
Set Coord = Feuille.Range(Cells(q, 15), Cells(q, 16))

Ver

Set Feuille = Sheets("Calcul")
Set Coord = Range(Cells(q, 15), Cells(q, 16))
con

ActiveChart.SetSourceData Source:=Feuille.Coord

Pero aún no hay magia....

Si alguien tiene la solución, salvaría mis nervios ;)

Gracias de nuevo a ustedes, amigos desarrolladores, por su disponibilidad.

Cordialmente

Configuración: Windows XP / Firefox 3.6.13

11 respuestas

Respuesta 1 / 11
lermite222 Mensajes publicados 9042 Estado Colaborador 1 199
 
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.
1