bonjour le forum,
j'ai un tableau (mensuel) avec des chiffres correspondant à la production de mon entreprise pour plusieur opérations . Je souhaiterai ajouter dans le même classeur un graphique qui mettrai en évidence l'évolution de la production pour chaque opération sur le mois .

Au départ j'ai fais une macro enregistré puis je suis allé sur la faq mais les codes ne correspondent pas du tout

avec la macro enregistrer j'obtien ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Charts.Add
    ActiveChart.ChartType = xlLineStacked
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R4C1:R34C1"
     ActiveChart.SeriesCollection(1).Name = ""opération1"""
    ActiveChart.SeriesCollection(2).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(2).Name = "=""opération2"""
    ActiveChart.SeriesCollection(3).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(4).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(5).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(6).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(7).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(8).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(9).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(10).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(11).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(12).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(13).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(14).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(15).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(16).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(17).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(18).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(19).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(20).XValues = "=Feuil1!R4C1:R34C1"
    ActiveChart.SeriesCollection(21).XValues = "=Feuil1!R4C1:R34C1"
 
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "date"
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
et les en ce qui concerne la faq le code se trouve ici http://bidou.developpez.com/faqvba/?....4#GraphCreate


voila ce que je voudrai savoir avant de commencer à codé c'est qu'est ce qui est préférable dans mon cas?