[VBA-E] Graphique suite à un tableau d'amortissement

Bonsoir tout le monde :)

C'est encore moi, l'étudiant qui selon un modo n'a rien à faire sur ce forum :) (bonsoir à lui aussi s'il me lit).

J'ai presque fini le devoir que j'ai à rendre, cependant j'ai une erreur quand j'exécute une fonction et j'arrive pas à la solutionner :s

Code:

---

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

Sub Graphique_amort() 'Installe un chart des deux courbes à côté de la série pour montrer l'évolution de l'intérêt et du principal Range("A1").Select Selection.End(xlToRight).Select Range("A1:C240").Select Charts.Add ActiveChart.ChartType = xlLineStacked ActiveChart.SetSourceData Source:=Sheets("amortissement").Range("A1:C240"), _ PlotBy:=xlColumns ActiveChart.SeriesCollection(1).Delete ActiveChart.SeriesCollection(1).XValues = "=amortissement!C1" ActiveChart.SeriesCollection(2).XValues = "=amortissement!C1" ActiveChart.Location Where:=xlLocationAsObject, Name:="amortissement" With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With ActiveChart.Axes(xlCategory).MajorGridlines.Select ActiveChart.SeriesCollection(2).Select ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _ "Courbes à deux axes" ActiveChart.Legend.Select End Sub

---

Quand j'exécute la fonction j'ai une erreur sur la ligne en gras qui me dit "la méthode ApplyCustomType de l'objet _chart a échoué...

J'en profite pour vous exposer un 2e petit soucis. J'ai réalisé un graphique mais je ne sais pas comment mettre l'axe des abscisses que je veux. Je m'explique, les 2 fonctions que je trace doivent aller de -2 à 2 par pas de 0,01 et je n'arrive pas à changer l'axe des abscisses... Je ne sais pas si je suis clair :D

Merci de votre précieuse aide en tout cas :)

Citation:

---

Envoyé par iupien78

C'est encore moi, l'étudiant qui selon un modo n'a rien à faire sur ce forum :)

---

Pas l'étudiant mais bien la totalité de l'énoncé du devoir.

Lol c'est bon l'énoncé on en parle plus, j'ai fait les 3/4 de mon boulot, c'est pas suffisant ?

Là je butte sur un problème donc je l'expose tout simplement...

Merci à ceux qui m'aideront :)

Citation:

---

Envoyé par iupien78

Lol c'est bon l'énoncé on en parle plus, j'ai fait les 3/4 de mon boulot, c'est pas suffisant ?

Là je butte sur un problème donc je l'expose tout simplement...

---

Rassure-toi, tu n'as pas besoin de te justifier pour poser des questions.
Sache que beaucoup s'amènent ici en espérant qu'on leur fasse leurs devoirs.
Visiblement ce n'est pas ton cas.

Ceci dit, n'étant pas un spécialiste des graphiques, je laisse à d'autres le soin de te répondre.

Je ne suis pas un spécialiste des graphes non plus, mais a ce qu ej'ai pu voir dans l'aide de la fonction que tu utilise, pour moi le problème sera la dessus :

Code:

---

1 2	TypeName:= _ "Courbes à deux axes"

---

Je pense que c'est ça qu'il ne reconnait pas :)

Tu essayé de créer ton graphique en utilisant l'enregistreur de macro, meme sur des fausses, données juste pour voir ce qu'il t'écris :)

Pour ta deuxième question, tu peux aussi utiliser l'enregistreur de macro, qui est quand meme un outil bien utile :)

En espérant t'avoir aidé :)

Je ne suis pas non plus un spécialiste des graphes, mais pour l´echelle de l´axe, le code est relativement simple:

Code:

---

1 2 3 4 5 6

With ActiveChart.Axes(xlCategory) .MinimumScale = -2 .MaximumScale = 2 .MajorUnitIs = 0.01 End With

---

Mais comme déjà dit, un coup d´enregistreur de macros est souvent très utile pour les codes inconnus/à problèmes. :lol: