Discussion :

[vherva]

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.

[fring]

Bonsoir,

Tu n'es pas loin de la bonne solution

Essaye ceci :

Code (ajouter Set et supprimer les .Address) :

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

1
2
3
4
5
Dim PlageX As Range
Set PlageX = Range(Cells(PremièreLigne, Colonne), Cells(DernièreLigne, Colonne))
 
    Charts("Graph1").Activate
    ActiveChart.SeriesCollection(1).XValues = PlageX

[vherva]

Merci Fring pour cette piste.
Je l'ai essayée à l'instant, mais, rien à faire, il y a toujours un bug.
L'erreur est toujours : Impossible de définir la propriété XValues de la classe Series.

Le code est le suivant

Code :

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

1
2
3
4
5
6
Worksheets("Données").Activate
    Dim PlageX As Range
    Set PlageX = Range(Cells(PremièreLigne, Colonne), Cells(DernièreLigne, Colonne))
 
    Charts("Graph1").Activate
    ActiveChart.SeriesCollection(1).XValues = PlageX

Si vous avez une autre idée pour m'aider, je suis preneur.
Merci d'avance.

[fring]

Etrange, cela devrait fonctionner pourtant.
Fais ce petit test pour vérifier ce que contient PlageX et ce que renvoient tes variables PremièreLigne, DernièreLigne et Colonne

Code :

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

1
2
3
Dim PlageX As Range
Set PlageX = Range(Cells(PremièreLigne, Colonne), Cells(DernièreLigne, Colonne))
MsgBox PlageX.Address

[vherva]

Quand j'insère la MsgBox, elle me dit "$F$12:$F$15".
Mes variables apparaissent bien (valeurs souhaitées). Je ne sais pas si l'expression convient à la propriété XValues par contre, mais je suis novice en VB.

[fring]

Oui de ce côté là c'est ok.

A première vue je ne vois pas ce qui coince.
Compresse ton fichier (max. 50Ko) et met le en pièce jointe, j'y jetterai un oeil.