Tracer une courbe dans VB 2008Résolu

Question

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 .

im24 · Accepted Answer

Merci d'avoir répondu 
Je vais essayer pour voir ce que ca donne ..

Hadriennoel · Answer

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

im24 · Answer

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

im24 · Answer

DSL je voulais dire EXCEL nn access

im24 · Answer

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 ]

cs_ShayW · Answer

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

im24 · Answer

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

im24 · Answer

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

Utilisateur anonyme · Answer

Bonsoir,
Voici un exemple que j'ai réalisé avec excel 2000 (eh oui ca existe ) et vb .net
Ne pas oublier d'ajouter la référence COM d'excel au projet (projet/ajouter une référence)

'importation de l'espace de nom Excel
Imports Excel

Public Class Form1
    Dim exc As Excel.Application

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'création de l'objet applicatino
        Dim exc As Excel.Application = CreateObject("Excel.Application")
        If exc Is Nothing Then
            MessageBox.Show("erreur!")
        End If

        'ouverture du workbook (bien sur, il faut modifier cette ligne)
        Dim WorkBook As Excel.Workbook = exc.Workbooks.Open(My.Application.Info.DirectoryPath & "\Classeur1.xls")

        'selection de Feuille1 (on peut en prendre une autre)
        Dim Feuille As Excel.Worksheet = WorkBook.Worksheets(1)

        'mise en array des valeurs des cellules coordonnées X et Y (a modifier également selon tes plages de valeurs)
        Dim x As Array = Feuille.Range("A1", "A8").FormulaLocal
        Dim y As Array = Feuille.Range("B1", "B8").FormulaLocal

        'pour agrandir la courbe je met ici un zoom qui permet d'ajuster
        Dim zoom As Single = 4
        'remplissage du tableau de points convertis en single avec zoom optionnel
        Dim pts(7) As PointF
        For i = 0 To 7
            pts(i) = New PointF(CType(x(i + 1, 1), Single) * zoom, CType(y(i + 1, 1), Single) * zoom)
        Next

        'création d'une bitmap vierge
        Dim b As New Bitmap(200, 200)
        'outil de dessin pour dessiner
        Dim g As Graphics = Graphics.FromImage(b)

        'fond blanc du graphe
        g.FillRectangle(New SolidBrush(Color.White), 0, 0, b.Width, b.Height)

        'dessin des points sur le bitmap 
        For i = 1 To x.Length - 2
            g.DrawLine(New Pen(Color.Red, 2), pts(i - 1), pts(i))
        Next
        'tu peux dessiner aussi les axes etc....


        'affichage du bitmap dans un picturebox
        PictureBox1.Image = b.Clone

        'sauvegarde du graphe sur le disque 
        b.Save(My.Application.Info.DirectoryPath & "\sauvegarde.jpg", Imaging.ImageFormat.Jpeg)
    End Sub
End Class


A bientôt

im24 · Answer

Bonjour :)
Merci pour ta reponse c'est sympa ..  je vais tester pour voir se que ca donne .
A bientot

Tracer une courbe dans VB 2008

10 réponses

Votre réponse

Discussions similaires