Tracer un graphique avec une macro

Version imprimable

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:

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

11/02/2015, 02h00
clementmarcotte

Bonjour,

Lance la au pas à pas (F8). Tu vas au moins savoir quelle ligne la fait planter.
11/02/2015, 22h36
mohand78

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

elle plante à la ligne

Code:

ActiveSheet.Shapes.AddChart.Select
11/02/2015, 22h57
Invité

Bonsoir,
Regarde ça:http://www.developpez.net/forums/d13...o/#post7379070
12/02/2015, 00h47
mohand78
ca ne marche toujours pas, il plante a la ligne
Code:

1 2 Dim grph As New clsGraphe

3 pièce(s) jointe(s)

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

Code:

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

13/02/2015, 01h07
mohand78

ca ne marche toujours pas.
par contre le code initial que j'avais créer fonctionne mais sur mon autre pc... :roll:
comment expliquer que sur un pc, j'arrive a enregistrer une macro toute simple et sur un autre pc, ca plante ?