Bonjour à tous,

J'aimerai une macro qui me fasse un graphique à partir de cellules variables.

En fait, dans une page, j'ai trois cases qui indiquent la ligne, la première et la dernière colonne à selectionner dans la page où se trouve la données graphiques. (par exemple: 1024 5 24 = cellule (1024,5) à cellule (1024,24) dans la page de donnée )

voici le code que j'ai trouvé:

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
Sub camembert()
'
' camembert Macro
' Macro enregistrée le 20/06/2008 par FNMF
'   
    x = Sheets("Résultats").Cells(5, 24).Value
    y = Sheets("Résultats").Cells(5, 25).Value
    z = Sheets("Résultats").Cells(5, 26).Value
Dim Plage As Range
Set Plage = Sheets("base").Range(Cells(x, y), Cells(x, z))
 
 
    Charts.Add
    ActiveChart.ChartType = xl3DPieExploded
    ActiveChart.SetSourceData Source:=Plage, _
        PlotBy:=xlRows
    ActiveChart.SeriesCollection(1).XValues = "=base!R1056C5:R1056C24"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Résultats"
    ActiveChart.HasLegend = False
End Sub
Hors cela ne fonctionne, le tout bloque au niveau de la selection des cellules (plage)

Pouvez vous m'aider?

Merci d'avance