Y
yanndan
Guest
Bonjour,
Ca fait qualques jours que je cherhce mais jene trouve pas ce que je cherche. Je cherche à faire une macro qui dessine un graphique à partie des données de ma feuille.J'ai une feuille excel avec 5 colonnes. la premiere contient les étiquettes à mettre sur les points, la deuxieme les X de la premiere courbe la troisieme les X de la deuxieme courbe, la quatrieme les Y de lapremier courbe et la 5 les y de la deuxieme courbe.
J'essaie dasn un premier temps de tracer ma cour be mais ma 2 eme colonne parasite le graphique .
Voila le code pour la premiere courbe:
Dim objChart As Chart, objRange As Range, MaSerie As series
Set objChart = ThisWorkbook.charts.Add
objChart.ChartType = xlLineMarkers
objChart.Name = "Graphique"
objChart.HasLegend = True
Set MaSerie = objChart.seriesCollection.NewSeries
MaSerie.Values = "=" & Worksheets("Feuil3").Range("D
").Columns(1).Address(True, True, xlR1C1, True)
MaSerie.XValues = "=" & Worksheets("Feuil3").Range("B:B").Columns(1).Address(True, True, xR1C1, True)
Je tourne en rond depuis qq jours sur le pb du graphe et ça me saoule...... Je cherche aussi comment affecter aux points les étiquettes que je souhaite
Merci de toute info
Dan
Ca fait qualques jours que je cherhce mais jene trouve pas ce que je cherche. Je cherche à faire une macro qui dessine un graphique à partie des données de ma feuille.J'ai une feuille excel avec 5 colonnes. la premiere contient les étiquettes à mettre sur les points, la deuxieme les X de la premiere courbe la troisieme les X de la deuxieme courbe, la quatrieme les Y de lapremier courbe et la 5 les y de la deuxieme courbe.
J'essaie dasn un premier temps de tracer ma cour be mais ma 2 eme colonne parasite le graphique .
Voila le code pour la premiere courbe:
Dim objChart As Chart, objRange As Range, MaSerie As series
Set objChart = ThisWorkbook.charts.Add
objChart.ChartType = xlLineMarkers
objChart.Name = "Graphique"
objChart.HasLegend = True
Set MaSerie = objChart.seriesCollection.NewSeries
MaSerie.Values = "=" & Worksheets("Feuil3").Range("D
MaSerie.XValues = "=" & Worksheets("Feuil3").Range("B:B").Columns(1).Address(True, True, xR1C1, True)
Je tourne en rond depuis qq jours sur le pb du graphe et ça me saoule...... Je cherche aussi comment affecter aux points les étiquettes que je souhaite
Merci de toute info
Dan