j'ai un programme vba pour excel 2000 qui me donne une
liste de donnee a n lignes. Je voudrais faire un graphic
sur ces donnes mais quand j'essaie de creer mon graphic
avec la fonction Range(Cell(1,1), Cell(n,2)) vba plante.
Connaitriez vous un moyen pour que mon graphic accepte de
prendre une variable pour sa base de donnee (sourcedata)?
Je vous remercie d'avance.
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é
Salut Benjamin, Adapte : Sub Graph() Dim Fe As Worksheet Dim Graph As Chart Set Fe = Worksheets("Feuil1") Set Graph = Charts.Add With Graph .ChartType = xlColumnClustered 'valeur en A1:A? .SetSourceData Fe.Range(Fe.[A1], _ Fe.[A65536].End(xlUp)) 'incorporé à la feuille '.Location xlLocationAsObject, Fe.Name
'dans une feuille graphique .Location xlLocationAsNewSheet .Name = "Mon graphique" End With 'si incorporé à la feuille 'With Fe ' .ChartObjects(.ChartObjects.Count) _ ' .Name = "Mon graphique" 'End With
Set Graph = Nothing Set Fe = Nothing End Sub
Hervé.
"Benjamin" a écrit dans le message news: 0d8201c39f05$8d0936b0$
Bonjour,
j'ai un programme vba pour excel 2000 qui me donne une liste de donnee a n lignes. Je voudrais faire un graphic sur ces donnes mais quand j'essaie de creer mon graphic avec la fonction Range(Cell(1,1), Cell(n,2)) vba plante. Connaitriez vous un moyen pour que mon graphic accepte de prendre une variable pour sa base de donnee (sourcedata)? Je vous remercie d'avance.
Salut Benjamin,
Adapte :
Sub Graph()
Dim Fe As Worksheet
Dim Graph As Chart
Set Fe = Worksheets("Feuil1")
Set Graph = Charts.Add
With Graph
.ChartType = xlColumnClustered
'valeur en A1:A?
.SetSourceData Fe.Range(Fe.[A1], _
Fe.[A65536].End(xlUp))
'incorporé à la feuille
'.Location xlLocationAsObject, Fe.Name
'dans une feuille graphique
.Location xlLocationAsNewSheet
.Name = "Mon graphique"
End With
'si incorporé à la feuille
'With Fe
' .ChartObjects(.ChartObjects.Count) _
' .Name = "Mon graphique"
'End With
Set Graph = Nothing
Set Fe = Nothing
End Sub
Hervé.
"Benjamin" <pasmieux@freesurf.fr> a écrit dans le message news:
0d8201c39f05$8d0936b0$a501280a@phx.gbl...
Bonjour,
j'ai un programme vba pour excel 2000 qui me donne une
liste de donnee a n lignes. Je voudrais faire un graphic
sur ces donnes mais quand j'essaie de creer mon graphic
avec la fonction Range(Cell(1,1), Cell(n,2)) vba plante.
Connaitriez vous un moyen pour que mon graphic accepte de
prendre une variable pour sa base de donnee (sourcedata)?
Je vous remercie d'avance.
Salut Benjamin, Adapte : Sub Graph() Dim Fe As Worksheet Dim Graph As Chart Set Fe = Worksheets("Feuil1") Set Graph = Charts.Add With Graph .ChartType = xlColumnClustered 'valeur en A1:A? .SetSourceData Fe.Range(Fe.[A1], _ Fe.[A65536].End(xlUp)) 'incorporé à la feuille '.Location xlLocationAsObject, Fe.Name
'dans une feuille graphique .Location xlLocationAsNewSheet .Name = "Mon graphique" End With 'si incorporé à la feuille 'With Fe ' .ChartObjects(.ChartObjects.Count) _ ' .Name = "Mon graphique" 'End With
Set Graph = Nothing Set Fe = Nothing End Sub
Hervé.
"Benjamin" a écrit dans le message news: 0d8201c39f05$8d0936b0$
Bonjour,
j'ai un programme vba pour excel 2000 qui me donne une liste de donnee a n lignes. Je voudrais faire un graphic sur ces donnes mais quand j'essaie de creer mon graphic avec la fonction Range(Cell(1,1), Cell(n,2)) vba plante. Connaitriez vous un moyen pour que mon graphic accepte de prendre une variable pour sa base de donnee (sourcedata)? Je vous remercie d'avance.
