Discussion :

[LesMotsLesChoses]

Bonjour,

J'ai le message d'erreur suivant lors de la création du graphique. Voici mon code :

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
Sub Générer_1_Graphique()
    Dim DernColonne As Integer
    Dim PremLigne As Range
    Dim Donnees As Range
    'Activation de la feuille EPAREG
    Sheets("epareg").Activate
    With ActiveSheet
        DernColonne = .Cells(1, .Columns.Count).End(xlToLeft).Column
        'Sélection de l'en-tête et des données de l'industrie
        Set PremLigne = Range(Cells(1, 1), Cells(1, DernColonne))
        Set Donnees = Range(Cells(3, 1), Cells(3, DernColonne))
        'Union des données du graphique
        Set MaPlage = Union(PremLigne, Donnees)
    End With
    'création du graphe
    MaPlage.Select
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData MaPlage, PlotBy = xlColumns   
End Sub

VBA m'indique que le problème se situerait à la dernière ligne : ActiveChart.SetSourceData MaPlage, PlotBy = xlColumns.

Où est-ce que j'ai fait une ou des erreurs ?

Merci pour votre aide!

Sylvain

[LesMotsLesChoses]

J'ai contourné le problème en éliminant PlotBy = xlColumns.

Je laisse la discussion ouverte... je vais possiblement avoir d'autres problèmes avec mon projet.

Merci!

Sylvain