Problème avec Macro de génération graphique

Version imprimable

Chers amis,
J'ai un macro affecté à un bouton pour la génération automatique des graphiques à partir une sélection de plage.
Le code s'exécute, mais précédé par le message "erreur d'exécution 13".
Quelqu'un peut m'aider à déceler l'anomalie?
Merci
Code:

1 2 3 4 5 6 7 8 9 ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Selection ActiveChart.SeriesCollection(1).XValues = "='Feuille 1'!$A$12:$A$35" ActiveChart.ChartTitle.Select ActiveChart.Axes(xlCategory).Select ActiveChart.Axes(xlValue).Select ActiveChart.ChartArea.Select Range("F12").Select

02/02/2011, 17h04
Jean-Philippe André

salut,

en pas a pas, a quelle ligne de code l'erreur surgit-elle ?

Ton code est-il dans un module ou une feuille ?

La derniere ligne peut etre la cause de l'erreur.
09/02/2011, 14h43
Bigasse

Salut,
En pas à pas le code surgit à la deuxième ligne :

Code:

ActiveChart.SetSourceData Source:=Selection

Mon code se trouve dans un module.
J’attends impatiemment ton aide
Merci
Bigasse
09/02/2011, 15h14
Jean-Philippe André

salut,

il faut essayer tant que tu peux de ne pas utiliser les objet activeXXX et Selection. Ca pose plus de probleme que ca ne risque d'en resoudre.

il faut essayer de passer la veritable selection dans ta ligne

Code:

Source:=Selection

devenant

Code:

Source:=Range("A1:Z26")

par exemple.

Tu peux voir cela dans la :faq: un exemple de creation de graphique.
http://excel.developpez.com/faq/inde...ue#GraphCreate
http://excel.developpez.com/faq/inde...ique#CompGraph

L'utilisation d'une variable Range peut aussi fonctionner
11/02/2011, 06h43
Bigasse

Salut,
Je peux bien faire ce que tu me propose, mais je veux que la source soit dynamique, c.à.d que je la sélectionne avant de sortir le graph.
Merci
Bigasse

Bonjour,

Une piste:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
  MakeGraph Selection
End Sub
 
Sub MakeGraph(rValues As Range)
  Dim oChart As Chart
  Dim rX As Range
  Set rX = Sheets("Feuil1").Range("A12:A35")
  Set oChart = Charts.Add
  oChart.ChartType = xlLine
  oChart.SetSourceData Source:=rValues
  oChart.SeriesCollection(1).XValues = rX
  oChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
End Sub

Bien que je trouve extrèmement dangereux de travailler avec une sélection.
Que se passera-t-il si l'utilisateur sélectionne une mauvaise zone?