Discussion :

[yoord]

Bonjour,

J'ai une macro qui permet de réaliser dse garphiques (rien de bien méchant me direz-vous).
Sauf que cette macro ne fonctionne pas dans tous mes classeurs ...

Elle fonctionne très bien dans le classeur ou je l'ai créée, mais pas dans les autres.
Cependant, je l'ai enregistrée au format xla, et mis a disposition via un bouton-macro, donc normalement, elle devrait soit fonctionner partout, soit planter partout.


Elle plante au code suivant :

Code :

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

1
2
3
4
5
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

avec cc le nombre de variables (strictement positif)


j'ai l'erreur suivante :

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

D'où mes deux questions :

1 - pourquoi est-ce que ca plante ?
2 - pourquoi est-ce que ca plante dans les classeurs dont ma macro n'est pas originaire ?


Excel 2003


Merci a tous

[yoord]

Bonjour a tous,

Comme personne ne semble pouvoir résoudre mon problème, voici la solution, trouvée tôt de bon matin :

Lorsque l'on fait appel a une feuille d'un classeur, si cette feuille porte le nom par défaut : Feuil1 Feuil2 etc... il n'est pas nécessaire de mettre les guillemets autour du nom : 'Feuil2' 'Feuil5'.
Or, si la macro appelle une feuille qui porte un nom particulier (dans mon cas : Croissance-PIB ou Demographie, alors on doit mettre les petits guillemets.
Le code de vient donc :

Code :

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

1
2
3
4
5
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

j'ai rajouté ' apres le = et avant le !R


Voila, j'espère que ca pourra en aider d'autres avec le même problème