Discussion :

[SuzyR]

Dans la formule suivante, je voudrais remplacer le nom de la feuille (en gras) par une variable. Après plusieurs essais je n'arrive pas à trouver la bonne syntaxe.

Code :

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

1
2
ActiveChart.SeriesCollection(1).XValues = _
                "=('Feuil1'!R2C3:R19C3,'Feuil1'R24C3)"

Merci d'avance pour votre aide !
Suzy

[fring]

Bonjour,

Essaie comme ceci :

Code :

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

1
2
ActiveChart.SeriesCollection(1).XValues = _
"=('" & MaVariable & "'!R2C3:R19C3,'" & MaVariable & "'R24C3)"

[SuzyR]

Flûte oublié de dire bonjour, Bonjour donc !

ça ne fonctionne pas : Impossible de définir la propriété XValues de la classe Series.

De plus ça se corse je dois mettre aussi une variable pour une partie de l'adresse, en gras aussi :

Code :

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

1
2
ActiveChart.SeriesCollection(1).XValues = _
                "=('9- Données CompaConsCat'!R2C3:R19C3,'9- Données CompaConsCat'!R24C3)"

Merci d'avance !!

[fring]

En reprenant tes valeurs (en gras) comme exemple, tu peux faire comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim NomFeuil As String, Lig1 As Integer, Lig2 As Integer
 
NomFeuil = "9- Données CompaConsCat"
Lig1 = 19
Lig2 = 24
 
ActiveChart.SeriesCollection(1).XValues = Sheets(NomFeuil).Range("C2:C" & Lig1 & ",C" & Lig2)
End Sub

[SuzyR]

Merci beaucoup !!