Macro pour lancer un graphique

Version imprimable

Bonjour,
je débute en excel et j'aimerais faire une macro qui me retourne un graphique (qui sera dans la feuille excel).
Je suis en train de suivre un tutoriel mais ça ne fonctionne pas.
Admettons que j'ai des données sur les cases A1:B6 et que j'aimerais un graphique avec. Voilà comment j'ai procédé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub graphiqueincorpore() Dim mongrahe As Chart, mafeuille As Worksheet, plagedonnees As Range Set mafeuille = ThisWorkbook.Worksheets("feuil1") With mafeuille Set plagedonnes = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).Resize(, 2) Set mongraphe = .ChartObjects.Add(100, 100, 300, 200).Chart mongraphe.ChartArea.Clear mongraphe.ChartType = xlXYScatter mongraphe.SetSourceData plagedonnes End With End Sub
mais ça plante à la ligne mongraphe.SetSourceData plagedonnes
voilà j'ai pas trop d'idée vu que c'était la marche à suivre dans mon tutoriel.

Est ce que quelqu'un peut me donner la bonne manip svp ?

merci beaucoup

25/01/2010, 13h26
cb_60

Bonjour
l'erreur ne serait pas sur cette ligne:
Dim mongraphe As Chart, mafeuille As Worksheet, plagedonnees As Range

car chez moi ton code fonctionne ( excel 2003)
25/01/2010, 13h56
steak_frite

Bonjour,
Pardon j'avais oublié de préciser que j'utilisais excel 2007, j'ai corrigé la faute de frappe mais toujours la même erreur "Erreur d'exécution, la méthode 'SetSourceData' de l'objet '_chart' a échoué", ça doit sans doute venir d'un problème de compatibilité.
Connais-tu un autre code pour avoir le même résultat stp ?
merci beaucoup

essaye en nommant ton graphique avant :

Code:

mongraphe.name = "Lenomdemongraph"

Edit1 : une exemple perso qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set MyG = Charts.Add(After:=ThisWorkbook.Sheets(Sheets.Count))
 
With MyG
    .Name = MyChartName
    .ChartType = xl3DColumnClustered
    .SetSourceData Source:=MyCell, PlotBy:=xlColumns
    .Location Where:=xlLocationAsNewSheet
    .HasTitle = True
    .HasDataTable = True
    .ChartTitle.Characters.Text = "Activité" & " Nb de jours : " & NbJourTot   'Nb jour total
    .Rotation = 20
    .Perspective = 30
    .RightAngleAxes = True
End With

25/01/2010, 17h01
steak_frite

salut,
merci pour ta réponse, est ce que tu peux me dire si ton graphique s'ouvre dans une nouvelle fenêtre où alors s'il est dans la même fenêtre que le sheet ?
aussi, est-ce que tu peux me dire ce que tu as mis dans MyCell
merci beaucoup

Citation:

merci pour ta réponse, est ce que tu peux me dire si ton graphique s'ouvre dans une nouvelle fenêtre où alors s'il est dans la même fenêtre que le sheet ?

=> dans une nouvelle fenetre.

Comme toi je spécifie une plage de données (plagedonnes)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
' --------------------------------------------------------------------- '
' Determination de la plage du graphique
' --------------------------------------------------------------------- '
With Cjours
    Dim MyCell As Range
    Set MyCell = .Cells(.Range("A65536").End(xlUp).Row, 1)
    Dim NbJourTot As String
    NbJourTot = MyCell.Offset(0, 1).Value ' Le nombre de jours total
 
 
    If Not MyCell = "Total" Then
      MsgBox "La derniere ligne de la colonne 1 doit être = totale dans l'onglet" & Cjours.Name
      GoTo fin
    End If
 
    Set MyCell = .Range("A1:D" & MyCell.Row - 1) ' -1 pour ne pas prendre en compte la ligne Total
 
End With