graphique sous vba

Version imprimable

graphique sous vba

Bonjour,

voici mon code pour insérer un graphique sous vba.
mais il ne reconnait pas la fonction "setsourcedata"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub graph() Dim graph As Chart Set graph = Chart.Add() With graph Name = tracé ChartType = xlXYScatterLines SetSourceData calcul2.Range("i10:k109") HasTitle = True HasLegend = True chartitle.Text = "titre du graphique" End With End Sub
pourriez vous m'éclaircir la situation.

merci

27/05/2008, 20h15
fring

A vue de nez, si calcul2 est le nom de ta feuille, tu dois l'écrire comme ceci

Code:

SetSourceData Sheets("calcul2").Range("i10:k109")

C'est ça ?
28/05/2008, 14h24
jbggg

oui j'ai essayé cette solution mais ça ne fonctionne toujours pas

bonjour,

au pif, il manque plein de point dans la clause with.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub graph()
Dim graph As Chart
 
Set graph = Chart.Add()
With graph
    .Name = "tracé"
    .ChartType = xlXYScatterLines
    .SetSourceData calcul2.Range("i10:k109")
    .HasTitle = True
    .HasLegend = True
    .chartitle.Text = "titre du graphique"
End With
 
End Sub

28/05/2008, 14h36
jbggg

oui pardon c'est vrai.

mais meme avec les points cela ne fonctionne toujours pas. Je ne comprends pas surtout que j'ai un exemple dans mon cours qui reprends la même écriture que j'ai.

Oui sorry, j'ai regardé un peu trop en diagonale, ton code possède plusieurs erreurs. Voici un exemple commenté que tu pourras adapter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Graph()
Dim Graph As Chart
 
Set Graph = Charts.Add 'insertion du graphique
With Graph
    .ChartType = xlColumnClustered 'type de graphique, ici modèle classique
    .Name = "Graphique" 'nom du graphique
    .SetSourceData Source:=Sheets("Feuil1").Range("A1:D32"), PlotBy:=xlColumns 'ce qu'on veut voir apparaître dans le graphique
    .Location Where:=xlLocationAsNewSheet 'emplacement du graphique, dans ce cas sur une nouvelle feuille
    .HasTitle = True 'oui on veut nommer le graph.
    .ChartTitle.Characters.Text = "Test Graphique" 'nom du graph.
    .Axes(xlCategory, xlPrimary).HasTitle = True 'oui on veut nommer l'axe des absisses (X)
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Dates" 'nom de l'axe X
    .Axes(xlValue, xlPrimary).HasTitle = True 'oui on veut nommer l'axe des ordonnées (Y)
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valeurs" 'nom de l'axe Y
End With
 
End Sub

2 erreurs fondamentales, valables pour toutes les procèdures :

Lorsque tu utilises With...End With, tu dois ajouter un point devant la propriété ou l'objet, par exemple :

Code:

1
2
3
4
With Sheets("Feuil1")
    .Range("A1") = "coucou" '<-- point devant Range
    .Name = "toto" '<-- point devant Name
End With

Lorsque tu définis la valeur d'une variable ou d'une propriété de type String, ta chaîne de caractères doit être entourée de guillements, pour exemple voir ci-dessus avec la propriété Name

28/05/2008, 14h42
mayekeul

si l'erreur persiste

tu peux nous dire laquelle est renvoyée par le debugger?

:)
28/05/2008, 14h55
jbggg

non c'est bon je l'ai remis à ma sauce et cela fonctionne nickel;

mais alors connaissez vous le code pour "nuage de points" mais non relié.

dernière petite précision, comment faire pour indiquer à coté des point leur numéro (par exemple 1001 (1800,1800))

merci
28/05/2008, 16h31
fring

Un truc à faire est d'utiliser l'enregistreur de macro, tu lances l'enregistreur, tu crées manuellement un graphique comme tu souhaites l'avoir, tu arrêtes l'enregistrement et tu regardes le code obtenu. Après il faut un peu nettoyer ce code vu que l'enregistreur note absolument tout comme par exemple les déplacements sur la feuille, mais au moins ça te donne une bonne indication.

Essaye déjà ça ;)