Discussion :

[jbggg]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

C'est ça ?

[jbggg]

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

[mayekeul]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

  Sélectionner tout - Visualiser dans une fenêtre à part

  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

[mayekeul]

si l'erreur persiste

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

[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

[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