Discussion :

[iupien78]

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 :

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

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

Merci de votre précieuse aide en tout cas

[AlainTech]

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.

[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...

Merci à ceux qui m'aideront

[AlainTech]

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.

[illight]

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 :

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

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é

[doringen]

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

Code :

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

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.