Discussion :

[frisou65]

Bonjour,
je veux créer un graph a partir d'une plage de cellule

Code :

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

1
2
3
4
5
6
7
8
9
    Dim Graph As Chart
    Set Graph = Charts.Add
    With Graph
        .ChartType = xlPie
        .SetSourceData Source:=Sheets("Récap_3ème tri_V_élo1").Range(Cells(j + 15, p).Address, Cells(j + 16, p).Address), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:= _
        "Récap_3ème tri_V_élo1"
    End With

Le programme marche pas sur la ligne en bleu avec cells. Je ne comprends pas sachant que dans ma structure des cells j+16 représente ma ligne avec j variable integer et p représente ma colonne avec p variable integer.
Est ce que quelqu'un peut m'aider?

[fring]

Bonjour,

Lorsqu'on écrit

Code :

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

Sheets(1).Range(Cells(x, y).Address, Cells(x, y).Address)

il faut également préciser la feuille d'où proviennent les Cells

Code :

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

Sheets(1).Range(Sheets(1).Cells(x, y).Address, Sheets(1).Cells(x, y).Address)

Donc pour ton code, essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Graph As Chart, Sh As Worksheet
    Set Graph = Charts.Add
    Set Sh = Sheets("Récap_3ème tri_V_élo1")
    With Graph
        .ChartType = xlPie
        .SetSourceData Source:=Sh.Range(Sh.Cells(j + 15, p).Address, Sh.Cells(j + 16, p).Address), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:= _
        "Récap_3ème tri_V_élo1"
    End With

[frisou65]

Merci beaucoup ça marche.