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

amoniaque 20 Messages postés vendredi 23 novembre 2007Date d'inscription 7 avril 2009 Dernière intervention - 5 mars 2009 à 17:10 - Dernière réponse : amoniaque 20 Messages postés vendredi 23 novembre 2007Date d'inscription 7 avril 2009 Dernière intervention
- 5 mars 2009 à 17:46
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
Afficher la suite 

Votre réponse

1 réponse

amoniaque 20 Messages postés vendredi 23 novembre 2007Date d'inscription 7 avril 2009 Dernière intervention - 5 mars 2009 à 17:46
+3
Utile
solution trouvé :

Rang = feuille.Range("A2:A" & (tabXY.Length / 2) + 1, "B2:B" & (tabXY.Length / 2) + 1)
Graph.SetSourceData(Rang, Excel.XlRowCol.xlColumns)
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de amoniaque

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.