Excel: gráfico de 12 meses deslizante

Hola tuany,

¿Tu PB sigue vigente? En caso de que sí, aquí tienes algunos elementos. Si no respondes, supongo que tus datos realmente están deslizándose, como en el caso 1 de arriba.
En mi ejemplo, supongo que los nombres (o números) de los meses que sirven como etiquetas en el eje horizontal están en la fila 1, y los datos correspondientes en la fila 2.
Al cambiar de mes, el gráfico debe utilizar nuevas columnas para deslizarse. En las macros a continuación, ColDeb es la nueva columna de inicio, ColFin la nueva columna de fin. Deberías ser capaz de calcularlas mediante la macro de lanzamiento.
Presento 2 casos:
- el gráfico se encuentra en una hoja gráfica diferente a la hoja de datos (macro Glisse_1)
- el gráfico se encuentra en la misma hoja de cálculo (macro Glisse_2).
(En la macro de lanzamiento, llama a la macro correcta).

Adáptalo a tu caso personal.

 Sub Lancement() Dim ColDeb As Integer, ColFin As Integer ColDeb = 2 ' nueva columna de inicio ColFin = 13 ' nueva columna de fin Call Glisse(ColDeb, ColFin) End Sub Sub Glisse_1(ColDeb, ColFin) ' gráfico en hoja gráfica separada With Charts("Graph1") .SeriesCollection(1).XValues = "=Feuil1!R1C" & ColDeb & ":R1C" & ColFin .SeriesCollection(1).Values = "=Feuil1!R2C" & ColDeb & ":R2C" & ColFin End With End Sub Sub Glisse_2(ColDeb, ColFin) ' gráfico en la misma hoja de cálculo Sheets("Feuil1").Activate ActiveSheet.ChartObjects("Graphique 1").Activate With ActiveChart .SeriesCollection(1).XValues = "=Feuil1!R1C" & ColDeb & ":R1C" & ColFin .SeriesCollection(1).Values = "=Feuil1!R2C" & ColDeb & ":R2C" & ColFin End With End Sub

Mes datos son del tipo

Mes 02 03 04 05 06 07 08 09 10 11 12 |01 02 03
Datos 1 2 3 4 5 6 7 8 9 10 11 |12 13 14
<-------------------------------------------|--------->
2004 | 2005
es decir, una hoja histórica que agrupa los datos. Quería saber en qué caso podemos utilizar una función de Excel, es en caso de que alguien más que yo desee hacer una modificación.
¡Muchas gracias por tu macro! :)