Discussion :

[Bigasse]

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 :

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

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

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

[Bigasse]

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

Code :

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

ActiveChart.SetSourceData Source:=Selection

Mon code se trouve dans un module.
J’attends impatiemment ton aide
Merci
Bigasse

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

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

Source:=Selection

devenant

Code :

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

Source:=Range("A1:Z26")

par exemple.

Tu peux voir cela dans la 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

[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

[AlainTech]

Bonjour,

Une piste:

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 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?