Bonjour :

J'ai enregistré puis modifié une macro pour afficher un graphe en courbe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()

    Workbooks("Donnees-Positionnemnt.xlsx").Sheets("Données générales").Activate
    Set r = Range("C5:F5")
    r.Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Données générales'!r")
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).ReversePlotOrder = True
End Sub
A la ligne en gras, il renvoie "Erreur : La méthode 'range' de l''objet'_Global a échoué".

Merci d'avance.