Tracer une courbe dans VB 2008

Bonjour tout le monde

je dois dessiner une courbe avec VB a partir d'un tableau sur Excel ( tableau de bord social ).... s'il vous plait pourriez vous m'aider
Merci d'avance .

Salut,

J'ai ce code qui j'avais fait il y a longtemps il pourra peut etre te servir a mettre en forme ta courbe.

'************************ création graphique ***************************************
Sub graph()
Dim x, y, lx, ly As Integer
Dim X1, Y1, source As Range
Dim feuille As String

'définition des variables
' UserForm1.TextBox1=axe des abscisses
' UserForm1.TextBox2=axe des ordonnées
' lx=nombre de ligne dans l'axe des abscisses
' ly=nombre de ligne dans l'axe des ordonnées
' X1=colonne des X
' Y1=colonne des Y
' source=colonne des X et des Y



'*********** sélection de la zone source *******************
feuille = "Feuil1"
'mettre le nom de la feuille des données.


Worksheets("Feuil1").Activate 'Feuille de la base de données

'sélection des axes X et Y
UserForm1.TextBox1 = InputBox("mettre lu numéro de la colonne")
UserForm1.TextBox2 = InputBox("mettre lu numéro de la colonne")
'J'utilise l'userform pour pouvoir avoir des données sous format chiffre et non sous format texte. Je pense qu'il y d'autre moyen mais celui-ci est sûr.

'sélection du nombre de ligne à comptabiliser
lx = Worksheets(feuille).Columns(UserForm1.TextBox1).Find("", , , , xlByRows, xlNext).Row
ly = Worksheets(feuille).Columns(UserForm1.TextBox2).Find("", , , , xlByRows, xlNext).Row

'sélection de la zone
Set X1 = Range(Worksheets(feuille).Cells(2, UserForm1.TextBox1), Cells(lx - 1, UserForm1.TextBox1))
Set Y1 = Range(Worksheets(feuille).Cells(2, UserForm1.TextBox2), Cells(ly - 1, UserForm1.TextBox2))
Set source = Union(X1, Y1)
source.Select


'************* création du graphique *************************

Charts.Add 'création d'un nouvelle feuille graphique
ActiveChart.ChartType = xlXYScatter 'sélection du type de graphique (nuage de point)
ActiveChart.SetSourceData source:=source 'sélection de la source des données
With ActiveChart
.HasTitle = True 'le graphique peut avoir un titre
.ChartTitle.Characters.Text = "X= " & Worksheets(feuille).Cells(1, UserForm1.TextBox1.Value) & " / Y = " & Worksheets(feuille).Cells(1, UserForm1.TextBox2.Value)
.Axes(xlCategory, xlPrimary).HasTitle = True 'le graphique peut avoir noms des axes
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = Worksheets(feuille).Cells(1, UserForm1.TextBox1)
.Axes(xlValue, xlPrimary).HasTitle = True 'le graphique peut avoir noms des axes
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = Worksheets(feuille).Cells(1, UserForm1.TextBox2.Value)
End With
ActiveChart.HasLegend = True 'le graphique peut avoir une légende
ActiveChart.Legend.Select
Selection.Position = xlBottom 'la légende est placé en bas

'nommer la feuille du graphique
ActiveChart.Name = "X= " & Worksheets(feuille).Cells(1, UserForm1.TextBox1.Value) & " Y = " & Worksheets(feuille).Cells(1, UserForm1.TextBox2.Value)

End Sub


'********************* impression graphique ***************************************
Sub impression()
ActiveChart.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

RE Salut
Deja je dois faire la liaison entre VB et ACCESS pour afficher le tableau ...
C'est assez complexe je suppose !!

DSL je voulais dire EXCEL nn access

Je m'explique :
En fait j'essaye de permettre à l'utilisateur d'avoir une courbe (exp : courbe Masse brut ) sur VB en entrant des données sur excel .
Si quelqu'un peut bien m'expliquer comment faire....
MERCI ]

Bonsoir
la courbe doit etre dessiné avec vb.net
et les données proviennent d'un classeur excel ?
les données représentent un vecteur de point x y
pour la courbe

Bonjour ShaynW
Exact , je dois recupérer des données sur excel pour tracer une courbe ....

En effect ,La periode (janv ,fevr ....) sera representer ds l 'axe des abscisses et la marge ds l'axe des ordonnées .
Ainsi la courbe sera dessiner par rapport au donnees ....
j'espere que c'est clair