Discussion :

[chrime71]

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 :

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

ActiveSheet.Shapes.AddChart.Select

Est ce un pbme de compatibilité de fonction 2007, 2010 ? Autre ?

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

[chrime71]

J'utilise la macro dans les même conditions initiales que lors de l'enregistrement !!

[ZimCri]

Tu peux toujours afficher le code ca aidera surement y voir un peu plus clair.

[patricktoulon]

Bonsoir

Juste une question:
As tu supprimé le graphe avant de réessayer ta macro??

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

[patricktoulon]

bonjour

montre nous le code ?

on y verra plus clair

[chrime71]

Voici la partie du code concernée

Code :

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

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

...

[patricktoulon]

Tiens essaies celle là

Code :

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

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

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

[patricktoulon]

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.