Erreur d'exécution '438'

Le
SCARLA
J'ai tapé ce code pour automatiser la mise à jour du graphique en utilisant
les cases d'options (en Excel 2007)

Sub ModifGraphique()
'Sélectionner le graphique
ActiveSheet.ChartObjects("Graphique 5").Activate
'supprimer la troisième série
ActiveChart.SeriesCollection(3).Delete
'Ajouter une nouvelle série
ActiveChart.SeriesCollection.NewSeries

If Range("L1").Value = 1 Then 'Si la case MARGE est cochée
'Ajout de la MARGE
ActiveChart.SeriesCollection(3).Name = "=EX311!$D$3"
ActiveChart.SeriesCollection(3).Value = "=EX311!$D$4:$D$15"
'Définition de la série en colonne
ActiveChart.SeriesCollection(3).ChartType = xlColumnClustered
'Les trois arguments sont R G B (Red, Green, Blue)
ActiveChart.SeriesCollection(3).Interior.Color = RGB(0, 255, 255)
Else
'Ajout du TAUX DE MARGE
ActiveChart.SeriesCollection(3).Name = "=EX311!$E$3"
ActiveChart.SeriesCollection(3).Value = "=EX311!$E$4:$E$15"
'Ajout de l'axe secondaire
ActiveChart.SeriesCollection(3).AxisGroup = 2
'Définition de la série en colonne
ActiveChart.SeriesCollection(3).ChartType = xlColumnClustered
'Définition de la couleur de la série
ActiveChart.SeriesCollection(3).Interior.Color = RGB(0, 255, 0)
End If
Range("A1").Select
End Sub

en vérifiant le code avec F8, il s'arrête juste après la ligne:
ActiveChart.SeriesCollection(3).Value = "=EX311!$D$4:$D$15"

en affichant le message d'erreur:
Erreur d'exécution '438'
Propiété ou méthode non gérée par cet objet

Quelqu'un peut-il m'aider à resoudre ce problème
D'avance Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20858721
Bonjour,

Est-ce possible que tu te sois inspiré de ceci :
http://books.google.ca/books?id=L00ege0C_YYC&pg=PA209&lpg=PA209&dq¬tiveChart.SeriesCollection(3).Value&source=bl&ots=1kD9dIUOip&sig=Cr9277Vuqwp3rlCG0FaIEeqqHb4&hl=fr&ei=kyA7S9uqHs3DlAeMt6ieBw&sa=X&oi=book_result&ct=result&resnum=7&ved CoQ6AEwBg#

| en vérifiant le code avec F8, il s'arrête juste après la ligne:
| ActiveChart.SeriesCollection(3).Value = "=EX311!$D$4:$D$15"


As-tu essayé quelque chose comme :
ActiveChart.SeriesCollection(3).Value = Range("EX311!$E$4:$E$15")
Publicité
Poster une réponse
Anonyme