[VBA-E] Création de graphique

Version imprimable

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:

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?

28/02/2006, 12h18
ouskel'n'or

Préférable ? La solution que tu comprends !
Bidou te donne trois solutions pour créer un graphique puis dit comment le modifier.
Si tes plages sont homogènes (pas de colonne ignorée) la selection par Currentregion est plus orthodoxe qu'une selection par série...

Franchement ? C'est toi qui vois...

Si tu as une difficulté ou une question plus précise, tu dis

A+

merci pour ta réponse

j'ai choisis le code que m'a donné l'enregistreur, il me parle plus

donc j'ai réadapter pour faire plus simple et j'ai une question
Code:

1 2 3 4 5 6 For i = 1 To 21 If i Mod 2 = 0 Then ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(2,i).Value "(Traité)" Else ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(2,i).Value "(Reçu)" Next i
ce code ne fonctionne pas et le probleme est que j'ignore comment ajouter du texte (Recu ou Traité selon les cas) à la fin du nom de l'opération

28/02/2006, 15h36
ouskel'n'or

As-tu sélectionné le graphique avant ces lignes ?

A+

je pense que tu as mal compris ma question: mon probleme se situe dans la syntaxe car quand je met simplement

Code:

ActiveChart.SeriesCollection(1).Name = Sheets(1).Cells(2, 2).Value

sans boucle ni rien ca fonctionne parfaitement : j'obtiens une courbe nomé comme le texte présent dans la cellule B2

mon probleme est que je veux ajouter encore du texte au nom de la courbe

de plus je n'arrive pas à faire ma boucle lorsue je fais ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Charts.Add ActiveChart.ChartType = xlLineStacked ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy _ :=xlColumns For i = 1 To NbColonne - 1 If i Mod 2 = 0 Then ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(2, i).Value(Traité) Else ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(2, i).Value End If Next i
ca me renomme pas les courbes

je vais mettre des msgbox pour voir si je rentre dans le if mais la je dois aller voir mon chef :?

28/02/2006, 16h32
ouskel'n'or

Citation:

Charts.Add
ActiveChart.ChartType = xlLineStacked
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy _
:=xlColumns

Si j'avais eu ces trois lignes, ej n'aurais pas posé cette question stupide :wink:
Je regarde pour quoi ça pose pb.

A+
28/02/2006, 16h37
ouskel'n'or

Déjà une ligne que je ne comprends pas

Citation:

ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(2, i).Value(Traité)

C'est quoi (traité) ?

A+

Pour le reste, ce code fonctionne chez moi
Code:

1 2 3 With ActiveChart .SeriesCollection(i).Name = Sheets(1).Cells(2, i).Value End With
Tu dis

A+

28/02/2006, 16h52
DonKnacki

Citation:

C'est quoi (traité) ?

c'est le texte que je veux rajouter à la fin du nom opération (donc à la fin du Cells(2,i).value) et c'est justement ca qui me pose probleme
28/02/2006, 17h00
ouskel'n'or

Allons !

Code:

ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(2, i).Value & "Traité"

Je te laisse faire l'essai avec ça

A+

Edit
J'ai quand même essayé, c'est ok
28/02/2006, 17h10
DonKnacki

je comprend pas pour le même code que tu m'a donné (copier coller!)

moi il me dis erreur d'execution 438 : propriété ou méthode non géré par cet objet 8O
28/02/2006, 17h45
ouskel'n'or

Tu fais bien le code que tu as mis ? Tout le code ? Le graphe doit être sélectionné...
Désolé si j'insiste mais moi ça marche, à la différence que je mets bien "With ActiveChart" avant et "End with" après :wink:

Tu dis

A+

Edit
Je n'arrive pas à provoqué l'erreur que tu signales. Comment fais-tu ? :wink:

Citation:

Je n'arrive pas à provoqué l'erreur que tu signales. Comment fais-tu ?

même en ne fesant que ca j'ai la même erreur
Code:

1 2 3 4 5 6 7 8 Sub Macro3() Charts.Add ActiveChart.ChartType = xlLineStacked ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy _ :=xlColumn ActiveChart.SeriesCollection(1).Name = Sheets(1).Cells(2, 2).Value End Sub

Et si tu fais ça ?

Code:

1
2
3
4
5
6
7
8
Sub Macro3() 
  Charts.Add 
  ActiveChart.ChartType = xlLineStacked 
  ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy:=xlColumn
  with activeChart.SeriesCollection(1)
    .Name = WorkSheets(1).Cells(2, 2).Value 
  end with
End Sub

Tu dis

Edit
Sur quelle ligne, l'erreur ?

En désespoir de cause, essaie ça

Code:

1
2
3
4
5
6
7
8
9
10
Sub Macro3() 
  Charts.Add 
  ActiveChart.ChartType = xlLineStacked 
  With activechart
    .SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy:=xlColumn 
    with .SeriesCollection(1) 
      .Name = WorkSheets(1).Cells(2, 2).Value 
    end with 
  end with
End Sub

01/03/2006, 11h02
DonKnacki

cela fonctionne :P

maintenant je vais faire ma boucle
je te tiens au courant de l'évolution ;)
01/03/2006, 11h14
ouskel'n'or

Citation:

Posté le: Mar Fév 28, 2006 16:40 Sujet du message:
With ActiveChart
.SeriesCollection(i).Name = Sheets(1).Cells(2, i).Value
End With

Citation:

Posté le: Mar Fév 28, 2006 17:45
Tu fais bien le code que tu as mis ? Tout le code ? Le graphe doit être sélectionné...
Désolé si j'insiste mais moi ça marche, à la différence que je mets bien "With ActiveChart" avant et "End with" après

:scarymov:

:lol: :lol: :lol:

apres m'être battu contre mon code je suis parvenu à ce résultat :

Code:

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
Sub Macro3()
  'recupération de la valeur de NbColonne
  Sheets("Feuil2").Visible = True
  Sheets("Feuil2").Select
  NbColonne = Range("A1").Value
  Sheets("Feuil2").Visible = False
  Sheets("Feuil1").Select
 
  'Ajout du Graphique
  Charts.Add
  ActiveChart.ChartType = xlLineStacked
  ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy:=xlColumn
 
  'Nom des différentes courbes du graphique
  For i = 1 To NbColonne - 1
    If i <= NbColonne - 6 Then
      If i Mod 2 = 0 Then
        With ActiveChart.SeriesCollection(i)
          .Name = Worksheets(1).Cells(2, i).Value & "(Traité)"
        End With
      Else
 
        With ActiveChart.SeriesCollection(i)
          .Name = Worksheets(1).Cells(2, i + 1).Value & "(Reçu)"
        End With
      End If
    End If
    If i >= NbColonne - 5 Then
      With ActiveChart.SeriesCollection(i)
        .Name = Worksheets(1).Cells(2, i + 1).Value
      End With
    End If
  Next i
 
End Sub

qui fait a peu pres ce que je veux sauf que ca me cré plus de courbe que voulu
(NbColonne=22 et il me crée 31 courbes avec les 21 qui ont le noms que je veux et les autres sont sans nom
d'ou cela provient il?

01/03/2006, 17h16
ouskel'n'or

Vérifie la plage des noms. Tu n'as pas un entête de colonne vide ?

Tu es sûr de

Citation:

NbColonne = Range("A1").Value

?

A+

ba non j'ai même mis un MsgBox(Nbolonne) comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
Sub Macro3()
    'recupération de la valeur de NbColonne
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
    NbColonne = Range("A1").Value
    Sheets("Feuil2").Visible = False
    Sheets("Feuil1").Select
    MsgBox (NbColonne)
    'Ajout du Graphique
...

et il me met bien 22

Déjà, pour y voir plus clair, je mettrais

Code:

NbColonne = Range("A1").Value -1

Ça t'émancipe de -1 qui m'agace...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
     For i = 1 To NbColonne
        If i <= NbColonne - 5 Then 
            If i Mod 2 = 0 Then 
                With ActiveChart.SeriesCollection(i) 
                  .Name = Worksheets(1).Cells(2, i).Value & "(Traité)" 
                End With 
            Elseif i Mod 2 <> 0 then        
                With ActiveChart.SeriesCollection(i) 
                    .Name = Worksheets(1).Cells(2, i + 1).Value & "(Reçu)" 
                End With 
            End If 
        ElseIf i >= NbColonne - 4 Then 
                With ActiveChart.SeriesCollection(i) 
                  .Name = Worksheets(1).Cells(2, i + 1).Value 
                End With 
        End If 
    Next i

Dans la ligne 2, colonne > 17, qu'as-tu comme valeur ?

A+

comment expliquer ?

sur la ligne 2, j'ai le nom de plusieurs opérations;
De la case 2 à 17 mes opérations prennent 2 cases (fusionnées) et le nom est présent uniquement sur la case pair (sur la case impair il n'y a rien)
en dessous (sur ligne 3) ces opérations ont besoins de deux nombres correspondants au traités et aux recus

puis à partir de la case 18 les opération ne sont plus que sur une case

je vais tenté d'être plus clair grace à cette image
http://img73.imageshack.us/my.php?im...ebitmap3ue.jpg

De plus j'ai fais quelque rectification notament pour le probleme de la case 17, ligne 2 et aussi pour avoir ma derniere opération qui sur la case 22, ligne 2

ca donne ca
Code:

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 Sub Macro3() 'recupération de la valeur de NbColonne Sheets("Feuil2").Visible = True Sheets("Feuil2").Select NbColonne = Range("A1").Value Sheets("Feuil2").Visible = False Sheets("Feuil1").Select MsgBox (NbColonne) 'Ajout du Graphique Charts.Add ActiveChart.ChartType = xlLineStacked ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy:=xlColumn 'Nom des différentes courbes du graphique For i = 1 To NbColonne If i <= NbColonne - 6 Then If i Mod 2 = 0 Then With ActiveChart.SeriesCollection(i) .Name = Worksheets(1).Cells(2, i).Value & "(Traité)" End With ElseIf i Mod 2 <> 0 Then With ActiveChart.SeriesCollection(i) .Name = Worksheets(1).Cells(2, i + 1).Value & "(Reçu)" End With End If ElseIf i >= NbColonne - 5 Then MsgBox (i) With ActiveChart.SeriesCollection(i) .Name = Worksheets(1).Cells(2, i + 1).Value End With End If Next i End Sub
toujours pareil ca me fais bien ce que je veux mais avec des Series non nommé en plus

06/03/2006, 11h10
DonKnacki

un coup de main?