Ecrire dans un graphique en VBA

Le
Amar Lacheheb
Bonjour,
je cherche une autre manière d'écrire la plage de données autrement que :
ActiveChart.SeriesCollection(1).XValues = "þuil1!R17C3:R18C7"
merci de votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Hervé
Le #11193881
Bonjour Amar,

Adapte et regarde si cela te convient :

Sub Graph()
Dim Fe As Worksheet
Dim Graph As Chart

Set Fe = Worksheets("Feuil1")
Set Graph = Fe.ChartObjects("Mon graphique") _
.Chart

With Graph
'valeurs en colonne A à partir
'de A2 (A1 étant le titre)
.SetSourceData Fe.Range(Fe.[A2], _
Fe.[A65536].End(xlUp))

.HasTitle = True
.ChartTitle.Text = "Mon graphique"
.SeriesCollection(1).Name = Fe.[A1]
End With

Set Graph = Nothing
Set Fe = Nothing
End Sub


Hervé.


"Amar Lacheheb" g4i2k4$33o$
Bonjour,
je cherche une autre manière d'écrire la plage de données autrement que :
ActiveChart.SeriesCollection(1).XValues = "þuil1!R17C3:R18C7"
merci de votre aide.



Amar Lacheheb
Le #12035691
Merci pour ton aide Hervé
"Hervé"
Bonjour Amar,

Adapte et regarde si cela te convient :

Sub Graph()
Dim Fe As Worksheet
Dim Graph As Chart

Set Fe = Worksheets("Feuil1")
Set Graph = Fe.ChartObjects("Mon graphique") _
.Chart

With Graph
'valeurs en colonne A à partir
'de A2 (A1 étant le titre)
.SetSourceData Fe.Range(Fe.[A2], _
Fe.[A65536].End(xlUp))

.HasTitle = True
.ChartTitle.Text = "Mon graphique"
.SeriesCollection(1).Name = Fe.[A1]
End With

Set Graph = Nothing
Set Fe = Nothing
End Sub


Hervé.


"Amar Lacheheb" g4i2k4$33o$
Bonjour,
je cherche une autre manière d'écrire la plage de données autrement que :
ActiveChart.SeriesCollection(1).XValues = "þuil1!R17C3:R18C7"
merci de votre aide.







Publicité
Poster une réponse
Anonyme