Discussion :

[mohand78]

Bonjour,
je souhaite créer une macro qui trace un graphique, rien de plus simple a priori avec l'enregistreur de macro excel.
problème quand je lance la macro j'obtiens l'erreur d'exécution 1004
Merci de bien vouloir m'aider


la macro est des plus simples:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro15()
'
' Macro15 Macro
'
 
'
    Range("A1:B4").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$B$4")
    ActiveChart.ChartType = xlXYScatter
End Sub

[clementmarcotte]

Bonjour,

Lance la au pas à pas (F8). Tu vas au moins savoir quelle ligne la fait planter.

[mohand78]

Lance la au pas à pas (F8). Tu vas au moins savoir quelle ligne la fait planter.[/QUOTE]

elle plante à la ligne

Code :

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

ActiveSheet.Shapes.AddChart.Select

[Invité]

Bonsoir,
Regarde ça:http://www.developpez.net/forums/d13...o/#post7379070

[mohand78]

ca ne marche toujours pas, il plante a la ligne

Code :

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

1
2
 
Dim grph As New clsGraphe

[Invité]

Bonjour,
Ajoute un module de classe dans ton projet, copie colle le code,

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim Shap As Shape
Enum style
    PieExploded = 69
    Pie = 5
    TroisDLine = -40101
    TrisDBarStacked100 = 62
End Enum
 
Public Sub Graphique_New(Feuille As Worksheet)
Set Shap = Feuille.Shapes.AddChart
End Sub
Public Sub Graphique_Source(Myrange As Range)
 Shap.Chart.SetSourceData Myrange
End Sub
Public Sub Graphique_Style(MyStyle As style)
 Shap.Chart.ChartType = MyStyle
End Sub
Public Sub Graphique_NewSeries(Myrange As Range)
 Shap.Chart.SeriesCollection.NewSeries.Values = Myrange
End Sub
Public Sub Graphique_NewSeries_String(Page As String)
 Shap.Chart.SeriesCollection.NewSeries.Values = Page
End Sub
Public Sub Graphique_SeriesCollection()
 
 Shap.Chart.SeriesCollection(1).ApplyDataLabels
End Sub
 
Public Sub Graphique_Taille(Hauteur As Integer, Largeur As Integer)
 Shap.Height = Hauteur
 Shap.Width = Largeur
End Sub
Public Sub Graphique_Position(X As Integer, Y As Integer)
 Shap.Top = X
 Shap.Left = Y
End Sub

ouvre la fenêtre de propriété et nommes ta classe en ClsGraph

Si non utilises son nom par défaut new classe1