Création de graphe via Macro

Version imprimable

30/11/2012, 11h42
chrime71

Création de graphe via Macro

Bonjour,

J'ai enregistré une macro en faisant des actions manuels dans mon classeur Excel.
Lorsque je relance ma macro j'ai une erreur sur la commande suivante :

Code:

ActiveSheet.Shapes.AddChart.Select

Est ce un pbme de compatibilité de fonction 2007, 2010 ? Autre ?
30/11/2012, 15h55
ZimCri

Salut, si tu as utilisé l'enregistreur de macro, vérifies que tu relances bien la macro dans les mêmes "conditions" que la fois précédente. Tu avais peut être sélectionné des données ou autre, quand tu l'avais fait pour la première fois??
30/11/2012, 16h02
chrime71

J'utilise la macro dans les même conditions initiales que lors de l'enregistrement !!
30/11/2012, 16h26
ZimCri

Tu peux toujours afficher le code ca aidera surement y voir un peu plus clair.
30/11/2012, 20h06
patricktoulon

heu

Bonsoir

Juste une question:
As tu supprimé le graphe avant de réessayer ta macro??
03/12/2012, 10h29
chrime71

Oui à chaque fois que je vais lancer la macro j'ouvre le document initial sans rien et tel qu'il était quand j'ai enregistré la macro.

J'ai vu que d'autres avait ce problème avec cette fonction mais je ne vois pas de résolution !!!
03/12/2012, 12h54
patricktoulon

re

bonjour

montre nous le code ?

on y verra plus clair

Voici la partie du code concernée

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
37
38
39
40
41
42
43
...

Sheets("Mafeuille").Select

Range("C1").Select
ActiveCell.FormulaR1C1 = "toto"
Range("D1").Select
ActiveCell.FormulaR1C1 = "tata"
Range("E1").Select
ActiveCell.FormulaR1C1 = "titi"
Range("E2").Select

Range("B21").Select
ActiveCell.FormulaR1C1 = "TOTAL"
Range("C21").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-19]C:R[-6]C)"
Range("C21").Select
Selection.AutoFill Destination:=Range("C21:E21"), Type:=xlFillDefault
Range("C21:E21").Select
Range("A1").Select

ActiveSheet.Shapes.AddChart.Select <=== Erreur au run erreur 1004 
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Range( _
     "'Mafeuille'!$B$1:$E$1;'Mafeuille'!$B$21:$E$21")

ActiveSheet.Shapes("Graphique1").IncrementLeft -241.5
ActiveSheet.Shapes("Graphique1").IncrementTop 158.25
ActiveWindow.SmallScroll Down=3

ActiveSheet.Shapes("Graphique1").ScaleWidth 1.066666667, msoFalse, _
     msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique1").ScaleHeight 1.1840277778, msoFalse, _
     msoScaleFromTopLeft

ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.ShowPercentage = True
ActiveWindow.Zoom = 90

...

Tiens essaies celle là

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub version_courte()
  With Sheets("Mafeuille")
.Range("C1") = "toto"
.Range("D1") = "tata"
.Range("E1") = "titi"
.Range("B21") = "TOTAL"
.Range("C21:E21").FormulaR1C1 = "=SUM(R[-19]C:R[-6]C)"
'"""""""""""""""""""""""""""""""""""""""""
'maintenant le graphe
With .Shapes.AddChart
.Chart.ChartType = xlPie
.Chart.SetSourceData Source:=Range("'Mafeuille'!$B$21:$E$21")
.ScaleWidth 1.066666667, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.1840277778, msoFalse, msoScaleFromTopLeft
.Chart.SeriesCollection(1).ApplyDataLabels
.Chart.SeriesCollection(1).DataLabels.ShowPercentage = True
End With
End With
ActiveWindow.Zoom = 90
ActiveWindow.SmallScroll Down = 3
End Sub

voila je l'ai encore un peu nettoyé.
au plaisir

03/12/2012, 16h44
chrime71

Ca me donne une erreur à la ligne 13 de ton code !!

"La méthode 'Range' de l'objet '_Global' a échoué"

J'ai tout de même du mal à comprendre qu'un enregistrement de macro ne fonctionne pas en rejeu !!!
03/12/2012, 16h48
patricktoulon

re

Je ne sais pas pourquoi tu as une erreur, moi je ne l'ai pas.
Vérifies le nom exact de la feuille, et puis l'enregistreur n'enregistre pas tout.