Erreur propriété PlotBy sur graphique

**nanousik** · 13/08/2013, 10h02

Bonjour,

J'ai une macro qui me crée un graphique et je souhaite inserver absisse et série. Pour trouver comment faire, je l'ai fais manuellement avec enregisteur de macro et j'ai donc utiliser la propriété :

Code :

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

.PlotBy = xlColumns

Mais une erreur se produit arrivée à cette ligne: Dimension spécifiée non valide dans le type de graphique en cours

Voici le code de ma création de fichier:

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
Sub faireGraphique(nomAppli, ligFin, colDeb, colFin, titre, emp1, emp2, style)
 
Dim classeur As Workbook
Dim objRange As Range
Dim objChart As ChartObject
 
Set classeur = Workbooks(nomAppli)
 
With Sheets("Statistiques")
    Set a1 = .Range(.Cells(2, colDeb), .Cells(ligFin, colDeb + 1))
    Set a2 = .Range(.Cells(2, colFin), .Cells(ligFin, colFin))
    Set objRange = Union(a1, a2)
End With
 
Set objChart = Sheets("Graphiques").ChartObjects.Add(emp1, emp2, 320, 220)
With objChart.Chart
    .ChartStyle = style
    .ChartType = xlLine
    .SetSourceData Source:=objRange
     .ApplyLayout (4)
     .PlotBy = xlColumns
     .SetElement (msoElementDataLabelRight)
     .SetElement (msoElementChartTitleAboveChart)
     .ChartTitle.Text = titre
End With
End Sub

**Daniel.C** · 13/08/2013, 10h20

Bonjour,

Ca ne provoque pas d'erreur ici. Peux-tu mettre le classeur - sans données confidentielles - en pièce jointe ?

**nanousik** · 13/08/2013, 10h44

Ci-joint le classeur, j'ai mis exactement la façon dont se présente le tableau

**Daniel.C** · 13/08/2013, 11h03

Dans la macro "workbook_open", remplace :

Code :

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

With Application.Sheets("Statistiques")

par :

Code :

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

With Sheets("Statistiques")

**nanousik** · 13/08/2013, 11h25

Merci pour l'info c'est vrai que c'est mieux, ça ne m'aide pas trop pour mon soucis de graphique par contre

**Daniel.C** · 13/08/2013, 11h31

Ton souci de graphique, c'était un plantage sur la ligne :

Code :

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

.PlotBy = xlColumns

Tu n'as plus cette erreur. Qu'est-ce que tu veux de plus. Si tu as un autre problème, expose-le; c'est le moins, non ?

**nanousik** · 13/08/2013, 11h39

Si je l'ai toujours

**Daniel.C** · 13/08/2013, 11h56

Bon alors, c'est que je n'ai pas fait les bonnes manips. Une fois que le classeur est ouvert, qu'est-ce qu'il faut faire pour provoquer cette erreur ?

**nanousik** · 13/08/2013, 12h02

Il faut sélectionner une valeur dans la liste déroulante et cliquer su l'image en dessous de la liste déroulante, c'est ce qui lance la création des graphiques

**Daniel.C** · 13/08/2013, 12h28

C'est ce que j'avais fait; par contre, je passe sur la séquence "graphique en aires à cause du test :

Code :

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

If colDeb = colFin - 4 Then

Si je ne tiens pas compte de ce test, je n'ai pas d'erreur. Comment faut-il faire pour avoir cette égalité ?

**nanousik** · 13/08/2013, 12h37

On a cette égalité au moment de la création du 3ème graphique, le graphique des temps moyen.

Car j'ai besoin davoir la courbe du temps moyen mais également une droite correpondant au temps de gamme.

Tu dois forcément avoir cette égalité à un moment donné

**Daniel.C** · 13/08/2013, 14h28

J'ai besoin de cette égalité, sinon je ne passe pas sur la séquence de code qui plante. Il n'y a pas de "graphique des temps moyens" dans la liste. Explique-toi précisément, car tu abuses de mon temps.

**nanousik** · 13/08/2013, 14h33

Lorsque tu cliques sur l'image pour la création des graphiques, la macro va créer 4 graphiques correspondant aux informations présentes dans le tableau de la feuille "Statistiques".

Par exemple si tu sélectionne "Attachement" dans la liste déroulante, une boucle tourne pour faire les 4 graphiques:

Code :

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

1
2
3
For i = 0 To 3
        Call faireGraphique(nomAppli, lig, col, col + i + 2, titres(i), emplacements1(i), emplacements2(i), style(i))
    Next i

Donc l'égalité

Code :

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

If colDeb = colFin - 4 Then

est vrai lorsque i = 2

**Daniel.C** · 13/08/2013, 15h18

Effectivement, ça plante avec Excel 2007. Je testais avec Excel 2013 et je n'avais pas l'erreur. Je te trouve un contournement.

**nanousik** · 13/08/2013, 15h25

Merci pour ton aide et désolée pour le temps que je t'ai pris

**Daniel.C** · 13/08/2013, 15h35

Modifie ton code comme 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
    If colDeb = colFin - 4 Then
        .ChartType = xlLine
        .SetSourceData Source:=a1
        .SeriesCollection.NewSeries
        .SeriesCollection(2).Name = a2(1).Value
        .SeriesCollection(2).Values = a2(2).Resize(a2.Rows.Count - 1).Value
        .ApplyLayout (4)
        '.PlotBy = xlColumns
        .SetElement (msoElementDataLabelRight)
        .SetElement (msoElementChartTitleAboveChart)
        .ChartTitle.Text = titre
    Else
        .ChartType = xlArea
        .SetSourceData Source:=objRange
        .ApplyLayout (7)
        .ChartTitle.Text = titre
        .Legend.Delete
        .SetElement (msoElementDataLabelShow)
    End If

**mercatog** · 13/08/2013, 15h40

Si tu enlèves la ligne en question?

**Daniel.C** · 13/08/2013, 16h00

Ca fonctionne, Mercatog, mais ça ne devrait pas planter. Excel 2007 est vraiment, comme dirait les anglais "a pain in the ass", question graphique.

nanousik :

Merci pour ton aide et désolée pour le temps que je t'ai pris

Désolé moi-même pour la remarque, mais je ne voyais pas le problème avec Excel 2013. Et le pire, c'est que je plante sur :

Code :

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