Discussion :

[FrancisZheng]

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.

[mercatog]

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
Sub Macro1()
Dim R As Range
Dim Ch As Shape
 
With Workbooks("Donnees-Positionnemnt.xlsx").Sheets("Données générales")
    Set R = .Range("C5:F5")
    Set Ch = .Shapes.AddChart
    With Ch.Chart
        .SetSourceData Source:=R
        .ChartType = xlLineMarkers
        .Axes(xlValue).ReversePlotOrder = True
    End With
    Set Ch = Nothing
    Set R = Nothing
End With
End Sub

[FrancisZheng]

Bonjour :

Cela fonctionne très bien! Merci pour votre aide rapide.

Mais je ne sais toujours pas pourquoi mon ancien code ne marche pas. Si quelqu'un le sait, n'hésitez pas à me dire

[Minise]

je suis pas spécialiste des graphiques

("'Données générales'!r") ça donne l'impression qu'il écrit la lettre r et non pas ta plage de données

c'est ce qu'il me vient à l'esprit

[FrancisZheng]

Ok. Il peut y avoir une faute au niveau de la syntaxe. Merci

[pijaku]

Bonjour,

r est une variable.
Donc, pour l'utiliser, il ne faut pas qu'elle soit dans les guillemets. Il faut l'en sortir et utiliser &, comme ceci :

Code :

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

ActiveChart.SetSourceData Source:=Range("'Données générales'!" & r)

Après, je n'ai pas regardé le reste ni testé...