J'ai un souci avec une ligne de code. Je souhaiterais donner des valeurs à l'axe des abscisses (X). La Localisation est variable et définie par un UserForm avant.
Le message d'erreur est le suivant : Erreur d'exécution '1004' : Impossible de définir la propriété XValues de la classe Series.

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
Charts("Graph1").Activate
 
    ActiveChart.ChartType = xlLineMarkers
    Worksheets("Données").Activate
 
    Charts("Graph1").SetSourceData Source:=Union(Sheets("Données").Range("C10:E10"), Sheets("Données").Range(Cells(PremièreLigne, 3), Cells(DernièreLigne, 5))), PlotBy:=xlColumns
 
 
    Dim Colonne
    If ComboBoxEchelle.Value = Range("F10").Value Then Colonne = 6
    If ComboBoxEchelle.Value = Range("G10").Value Then Colonne = 7
    If ComboBoxEchelle.Value = Range("H10").Value Then Colonne = 8
    If ComboBoxEchelle.Value = Range("I10").Value Then Colonne = 9
 
    Worksheets("Données").Activate
    Dim PlageX As Range
    PlageX = Range(Cells(PremièreLigne, Colonne), Cells(DernièreLigne, Colonne)).Address
 
    Charts("Graph1").Activate
    ActiveChart.SeriesCollection(1).XValues = PlageX.Address
L'erreur apparaît à la dernière ligne.

Si quelqu'un pouvait m'aider car je suis débutant en langage Visual Basic et là, ça fait une journée que je galère. Merci d'avance.