Discussion :

[FP789]

Bonjour à tous,

Sur mon fichier, j'ai créé une macro afin de copier une plage de cellules contenant un graphique. Cette plage sera copiée X fois, soit X la valeur indiquée en cellule L14.

En revanche, les graphiques copiés comportent toujours la même plage de données. Je souhaiterai donc ajouter à cette macro un code permettant de modifier les plages de données correspondantes à chaque graphique.
Ou est-ce possible, tout simplement, d'affecter aux graphiques une plage de données en références relatives ? Mais je ne crains que ce ne soit pas possible..

J'ai également remarqué que l'on peux ajouter un code au graphique directement, serait-ce une solution ?


Ci-joint le fichier Excel d'exemple avec les explications nécessaires et de plus amples informations sur ma demande.

N'hésitez pas pour toutes questions !

Merci à vous tous !

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub generer()
Dim i As Integer, Ligne As Long
  Application.ScreenUpdating = False
For i = 1 To Range("L14")
    Rows("37:56").Copy Range("A" & Rows.Count).End(xlUp).Offset(18, 0)
    With ActiveSheet
        Ligne = .ChartObjects(.ChartObjects.Count).TopLeftCell.Row - 2
        With .ChartObjects(.ChartObjects.Count).Chart.SeriesCollection(1)
            .Values = Range(Cells(Ligne, 13), Cells(Ligne, 14))
        End With
    End With
Next i
End Sub