Vb.net, excel, tracé une courbe de type XY [Résolu]

Signaler
Messages postés
20
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
7 avril 2009
-
Messages postés
20
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
7 avril 2009
-
Bonjour,

J'essaie de tracer sur Excel, via vb.Net, une courbe de type XY.
J'ajoute correctement mes données X et Y dans une feuille, mais lorsqu'il s'agit d'afficher, je ne trouve pas l'option pour indique que les valeurs de X sont dans comprises dans la plage "A2","Ax" de ma feuille...

En gros si, pour les abscisses, à chaque point, j'ai un incrément de 1.

Voici mon code :

Try
'nouvelle feuille pour y mettre les données
Classeur.Sheets.Add(, Classeur.Sheets.Item(Classeur.Sheets.Count))
feuille = Classeur.ActiveSheet

'renommer la feuille
feuille.Name = "Données" & NumeroCycle

'écriture des en têtes
feuille.Range("A1", "A1").Value = "Valeur de X"
feuille.Range("B1", "B1").Value = "Valeur de Y"

'écriture des données X et Y sur la feuille
feuille.Range("A2", "B" & (tabXY.Length / 2) + 1).Value = tabXY
feuille.Columns.AutoFit()

'------------------------------------------------
'nouveau graphique pour y afficher la courbe XY
Classeur.Charts.Add(, Classeur.Sheets.Item(Classeur.Sheets.Count))
Graph = Classeur.ActiveChart

'renommer le graphique
Graph.Name = "graph" & NumeroCycle

'type de courbe (nuage de points)
Graph.ChartType = Excel.XlChartType.xlXYScatterSmoothNoMarkers

'affectation des données pour les ordonnées (valeur de Y)
Graph.SetSourceData(feuille.Range("B2", "B" & (tabXY.Length / 2) + 1), Excel.XlRowCol.xlColumns)

Catch ex As Exception
End Try

Cordialement,

J

1 réponse

Messages postés
20
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
7 avril 2009

solution trouvé :

Rang = feuille.Range("A2:A" & (tabXY.Length / 2) + 1, "B2:B" & (tabXY.Length / 2) + 1)
Graph.SetSourceData(Rang, Excel.XlRowCol.xlColumns)