Macro pour créer auto pls graphiques

Question

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

Zega · Answer

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!

Macro pour créer auto pls graphiques

1 réponse

Votre réponse

Newsletters