Macro pour créer auto pls graphiques

Zega -  
 Zega -
Bonjour,

Je souhaite dégager d'une étude 140 graphiques. Due à la quantité de graphique requis je cherche à savoir comment je pourrais automatiser la création de ces 140 graphiques via une macro Excel.

Ma source de donnée est de la forme (avec le type de graphique que je souhaite obtenir pour chaque question):
[URL=http://www.hostingpics.net/viewer.php?id=737878tableau.jpg][IMG]http://img5.hostingpics.net/thumbs/mini_737878tableau.jpg[/IMG][/URL]

Quelqu'un aurait une idée pour me faciliter la vie?

Merci beaucoup!

PS: Je ne connais quasiment rien des macro VBA

1 réponse

  1. Zega
     
    re bonjour à tous,

    J'ai un peu avancé en tripatouillant à droite à gauche.

    Au final j'arrive à une macro de ce type:
    Sub test2()

    For i = 2 To 146
    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=testm!R1C2:R1C19"
    ActiveChart.SeriesCollection(1).Values = "=testm!R" & i & "C2:R" & i & "C19"
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graphi"
    With ActiveChart
    .HasTitle = False
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    Next
    End Sub

    La macro bug au niveau du "Next", je n'arrive pas à savoir ce que j'ai loupé, quelqu'un pourrait m'aider?

    Merci!
    0