macro dans plusieurs calsseurs...

[yoord]

Bonjour,
J'ai réalisé une macro qui permet de faire des graphiques (pas très compliqué).
j'ai mis cette macro en tant que macro complémentaire, et je l'appelle via un bouton-macro dans ma barre d'outil.

Seulement, la macro plante lorsque je choisit l'axe des abscisses pour mon graphique.
Le hic, c'est que la macro fonctionne très bien dans le classeur ou je l'ai créée, mais cette partie du code ne fonctionne pas des lorsque je souhaite l'utiliser dans un autre classeur.
Nul part dans mon code je ne fais référence au nom du classeur, ou au nom de la feuille. J'utilise toujours activeworkbook ou activesheet, activesheet.name etc...

le code plante ici :

for i = 1 to cc
If graph <> xlPie Then
ActiveChart.SeriesCollection(i).XValues = "=" & ActiveSheet.Name & "!R" & lig - 1 & "C" & col + 1 & ":R" & lig - 1 & "C" & col2
End If
Next i

cc est un nombre strictement positif, renvoyant au nombre de variables.
et je ne vois pas pourquoi...
j'ai l'erreur suivante :

impossibilité de définir la propriété XValues de la classe Series

 

[PMO2]

Re : macro dans plusieurs calsseurs...

Bonjour,

A tout hasard, essayez avec le code modifié ci-dessous

For i = 1 To cc
If graph <> xlPie Then
ActiveSheet.ChartObjects(graph.Parent.Name).Activate
ActiveChart.SeriesCollection(i).XValues = "=" & ActiveSheet.Name & "!R" & lig - 1 & "C" & col + 1 & ":R" & lig - 1 & "C" & col2
End If
Next i

Cordialement.

PMO
Patrick Morange

 

[yoord]

Re : macro dans plusieurs calsseurs...

Bonjour,

ton code ne fonctionne pas, j'ai un message d'erreur avec le

 graph [CODE]

j'ai néanmoins pu solutionner mon problème.
Lorsque l'on appelle une feuille, Excel a besoin d'avoir le nom de cette feuille entre '  '  .
Or, lorsque cette feuille porte le nom par défaut : Feuil1 Feuil2 etc... ces petits guillemets ne sont pas nécessaires.

Mes graphiques ne fonctionnaient pas justement dans des feuilles qui avaient été renommées.
Il suffit de rajouter les '  ' autour de Activesheet.Name et ca fonctionne !

[CODE]for i = 1 to cc
If graph <> xlPie Then
ActiveChart.SeriesCollection(i).XValues = "='" & ActiveSheet.Name & "'!R" & lig - 1 & "C" & col + 1 & ":R" & lig - 1 & "C" & col2
End If
Next i

Merci en tout cas pour ton aide.

Yoord