Bonjour,
je cherche une autre manière d'écrire la plage de données autrement que :
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R17C3:R18C7"
merci de votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de news: 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.
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" <amar.lacheheb@bipe.fr> a écrit dans le message de news:
g4i2k4$33o$1@writer.imaginet.fr...
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.
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" a écrit dans le message de news: 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
Merci pour ton aide Hervé "Hervé" a écrit dans le message de news:
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" a écrit dans le message de news: 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.
Merci pour ton aide Hervé
"Hervé" <hmsilve-sanspub@wanadoo.fr> a écrit dans le message de news:
OjV95wo3IHA.1192@TK2MSFTNGP05.phx.gbl...
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" <amar.lacheheb@bipe.fr> a écrit dans le message de news:
g4i2k4$33o$1@writer.imaginet.fr...
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.
Merci pour ton aide Hervé "Hervé" a écrit dans le message de news:
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" a écrit dans le message de news: 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.