Bonjour,

Je cherche à tracer un graph de type camembert en cliquant sur un bouton.
J'ai donc commencé par enregistrer une macro Excel puis je cherche à l'adapter pour pouvoir l'utiliser.
En effet, la macro que j'ai enregistré est valable pour 1 certaine ligne et j'aimerai pouvoir l'adapter pour les autres lignes de mon tableau.

J'aimerai donc remplacer le Range("C8:O8") par une structure du type Cells(x,3),Cells(x,15) pour que je puisse ensuite faire varier la ligne.

J'ai essayé tout un tas d'idées, en créant des plages, des tableaux, ... mais malheureusement je bloque toujours...

Je vous mets le code dessous :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Graph_Click()
 
'Tracer le graph
 
 Charts.Add
    ActiveChart.ChartType = xlPie
    ActiveChart.SetSourceData Source:=Sheets("Feuille1").Range("C8:O8"), _
        PlotBy:=xlRows
 
    ActiveChart.SeriesCollection(1).XValues = "=Feuille1!R2C3:R2C15"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphs"
 
 
End Sub

Merci d'avance pour toute l'aide que vous pourrez m'apporter!