graphique sur excel

Question

voila je doi tracer un graphique 2d et mes plages de donn&#233;es sont sur la colonne 1 et la colonne 5, et ont une longueur dependant d'une variable.
vu que je debute sur vba,  kkun pourrai prendre le tps de m'expliquer les lignes de commande &#224; rentrer.
je suis sur vba6.
merci d'avance

mrdep1978 · Answer

Le code ci-dessous devrait repr&#233;senter un bon d&#233;part.
Sinon si tu as besoin d'autres propri&#233;t&#233;s du graphique, tu peux toujours enregistrer une macro qui enregistrera les modifs que tu fais manuellement.

J'ai mis un bool&#233;en lb_CreerGraphe.
Si lb_CreerGraphe = True, le code ex&#233;cute le code pour la cr&#233;ation d'un graphique.
Sinon il travaille sur le 1e graphe d'une feuille.

Option Explicit


Public Sub gsub_Test()
Dim l_ObjGraphe As ChartObject
Dim l_Graphe As Chart
Dim l_Courbe As Series
Dim ll_LigneDebut As Long
Dim ll_LigneFin As Long
Dim ls_SheetName As String
Dim lb_CreerGraphe As Boolean


ll_LigneDebut = 2
ll_LigneFin = 12
ls_SheetName = ActiveSheet.Name


lb_CreerGraphe = True

If lb_CreerGraphe Then
    'Cr&#233;ation d'un graphe
    Set l_Graphe = Charts.Add
Else
    'S&#233;lectionne le graphe de la feuille choisie
    Set l_ObjGraphe = Worksheets(ls_SheetName).ChartObjects(1)
    Set l_Graphe = l_ObjGraphe.Chart
End If


With l_Graphe
    'Type de graphique
    .ChartType = xlLineMarkers
    
    If lb_CreerGraphe Then
        'Ajoute une courbe
        Set l_Courbe = .SeriesCollection.NewSeries
    Else
        'Travaille avec la 1e courbe
        Set l_Courbe = .SeriesCollection(1)
    End If
    'D&#233;finit les plages de valeurs de la courbe
    With l_Courbe
        'Plage pour les abscisses
        .XValues = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C1:R" & ll_LigneFin & "C1"
        'Plage pour l'ordonn&#233;e
        .Values = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C5:R" & ll_LigneFin & "C5"
    End With
    'Titre des abscisses
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Abscisses"
    'Titre des ordonn&#233;es
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Ordonn&#233;es"
    'Titre du graphique
    .HasTitle = True
    .ChartTitle.Text = "Mon graphe"
    If lb_CreerGraphe Then
        'Place le graphe dans la feuille voulue
        .Location Where:=xlLocationAsObject, Name:=ls_SheetName
    End If
End With
End Sub

dave2047 · Answer

t'a msn ou skype?

mrdep1978 · Answer

Non mais si t'as des probl&#232;mes, vas-y, je reste sur cette page.

dave2047 · Answer

voila en fait j"ai des valeurs aberantes dans mon tableau et j"aurai voulu savoir s"l etait possible de ne pa en tenir compte pour tracer le graphe (genre prendre que les points inferieur &#224; x)

dave2047 · Answer

g ossi un otre probleme, g une grande dispersion des points. est ce kil est possible de lisser le graphe obtenue meme si ce n'est pa une fonction usuelle ( c soi une courbe de couple soit une courbe de puissance)

dave2047 · Answer

arf dernier probleme comment on fai pour changer les valeurs maxi et mini sur les axes.
 merci bcp

mrdep1978 · Answer

Dans ce cas, &#231;a complique un peu la construction des plages de valeurs, car il faut construire ta plage en sous-ensembles s&#233;par&#233;s par des ";". Par exemple, si on veut enlever la 4e ligne, la plage est d&#233;finie comme ceci :
Seriescollection(1).values = "Feuil1!R1C5:R3C5;Feuil1!R5C5:R6C5"

Il faut donc monter une mini usine &#224; gaz qui permettra de construire cette chaine ci
"Feuil1!R1C5:R3C5;Feuil1!R5C5:R6C5"
(Ce qui n'est pas gagn&#233; d'avance, je l'avoue :( )

Je vais essayer de cogiter sur le sujet

dave2047 · Answer

merci et vive les acquisitions SODEMO

cs_bouchrabouchra · Answer

Bonjour,


Je ne sais pas si je vais pouvoir vous expliquer mon probl&#232;me. En fait je me connecte &#224; une base de donn&#233;es &#224; laquelle j'envoie une requ&#234;te. Ensuite je stock les donn&#233;es qui m'int&#233;resse dans deux tableaux, un pour l'axe des X et un pour l'axe des Y. Dans l'axe des ce sont des dates que je voudrais avoir sous le format dd/mm/yyyy h:m:s , mais en tra&#231;ant le graph, excel m'envoie un message d'erreur. 
Alors quelqu'un aurait une id&#233;e de comment faire svp c'est tr&#232;s urgent!!!!
merci

bou

Graphique sur excel

9 réponses

Discussions similaires