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