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