GRaphique sous excelRésolu

Question

Bonjour,

Ca fait qualques jours que je cherhce mais jene trouve pas ce que je cherche. Je cherche &#224; faire une macro qui dessine un graphique &#224; partie des donn&#233;es de ma feuille.J'ai une feuille excel avec 5 colonnes. la premiere contient les &#233;tiquettes &#224; 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: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 &#231;a me saoule...... Je cherhce aussi comment affecter aux points les &#233;tiquettes que je souhaite

Merci de toute info
Dan

jpleroisse · Accepted Answer

Bonjour,
J'ai copi&#233; et essay&#233; ton code , j'ai remarqu&#233; qui'il y avait (&#224; mon avis) une erreur dans le code &#224; la derni&#232;re ligne  MaSerie.XValues = "=" & Worksheets("Feuil3").Range("B:B").Columns(1).Address(True, True, xR1C1, True)
Je l'ai modifi&#233; (xlR1C1) au lieu de (xR1C1) et &#231;a marche .
Le graphique s'est bien cr&#233;&#233;.
jpleroisse

yanndan · Answer

C'est bon &#231;a marche.

Merci

GRaphique sous excel

2 réponses

Discussions similaires