Problème de graphique

[Jean-Michel]

Bonjour à tous,

Je commence une formation de vba et j'utilise le livre excel 2000 vba étape par étape en autoformation pour acquérir une base afin de pouvoir utiliser le vba.
Dans les exercices qui sont proposés, il y en a un qui me pose un probléme.

Je dois écrire un code pour uniformiser les axes sur deux graphiques différents.
Voici ce que me propose le livre:

Sub Harmonisergraph()
Dim monOuest As Chart
Dim monEst As Chart
Set monOuest = ActiveSheet.ChartObjects("West").Chart
Set monEst = ActiveSheet.ChartObjects("East").Chart
monOuest.Axes(x1Value).MaximumScaleIsAuto = True
monEst.Axes(x1Value).MaximumScale = _
monOuest.Axes(x1Value).maximunscale
End Sub

Ensuite , je fait fonctionner cette macro avec F8 pas à pas.

A la ligne (monOuest.Axes(x1Value).MaximumScaleIsAuto = True), j'ai une erreur qui de produit et on me demande un débogage .

Voici le message que je recois:

Erreur d'execution '1004'

La methode 'Axes' de l'objet '_chart' a échoué

Je ne comprend pas pourquoi j'ai ce message car j'ai respecté les instructions du livre et ne peux pas par mes propres moyens réparer cette erreur.

En vous remerciant par avance pour votre aide

Jean-Michel

 

[Mytå]

Salut Jean-Michel

Erreur de frappe de ta part je croit

Sub Harmonisergraph()
Dim monOuest As Chart
Dim monEst As Chart
Set monOuest = ActiveSheet.ChartObjects("West").Chart
Set monEst = ActiveSheet.ChartObjects("East").Chart
monOuest.Axes(xlValue).MaximumScaleIsAuto = True
monEst.Axes(xlValue).MaximumScale = _
monOuest.Axes(xlValue).MaximumScale
End Sub

C'est xlValue et non x1Value

monOuest.Axes(x1Value).MaximumScaleIsAuto = True
monEst.Axes(x1Value).MaximumScale = _
monOuest.Axes(x1Value).maximunscale


Mytå

 

[Mytå]

Oups re on ne voit pas la difference

en majuscule alors XLValue pas X1Value

La lettre L pas le chiffre un

Mytå

 

[Jean-Michel]

Salut Myta salut le forum,

Merci pour cette info, effectivement je n'ai pas vu la différence et heureusement que tu me la montres avec des majuscules c'est beaucoup plus visible.

Dans le livre, on confond aussi ces caractéres c'est pour cela que j'ai commis cette erreur.
Le vba lui n'accepte pas ces erreurs et ne les mentionne pas c'est pour cela que je n'ai pas réussi a corriger moi même.

Maintenant, j'ai encore cette écriture qui ne veut pas passé:

MonEst.Axes(xlValue).MaximumScale = MonOuest(xlValue).MaximumScale

tu arrives à voir pourquoi???

En tout cas merci pour le précieux coup de main c'est génial

A bientôt

Jean-Michel