Discussion :

[bykeman]

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

[le petit nicolas]

il faut activer la feuille "base" avant de chercher à définir la Plage
c'est tout et c'est comme ça.
En fait c'est parce qu'XL applique le "cells(x,y)" à la feuille active.
une autre possibilité, bien plus élégante, est de le forcer à appliquer ce "cells" à la feuille que tu souhaites

en outre, il me semble que ton "SeriesCollection" est redondant avec le "SetSourceData" qui precede

je ferais plutot quelque chose du genre :

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
21
22
Sub camembert()
' camembert Macro
' Macro enregistrée le 20/06/2008 par FNMF
'
Dim Plage As Range
 
x = Sheets("Résultats").Cells(5, 24).Value
y = Sheets("Résultats").Cells(5, 25).Value
z = Sheets("Résultats").Cells(5, 26).Value
 
with Sheets("base")
     Set Plage = .Range(.Cells(x, y), .Cells(x, z)) ' <--- SURTOUT NE PAS OUBLIER LES POINTS DEVANT Cells
end with
 
Charts.Add
with ActiveChart
    .ChartType = xl3DPieExploded
    .SetSourceData Source:=Plage, PlotBy:=xlRows
    .Location Where:=xlLocationAsObject, Name:="Résultats"
    .HasLegend = False
end with
End Sub

à plus

[bykeman]

Merci, ça marche à la perfection!!

Par contre, le graphique est vierge, j'aimerai voir le pourcentage et le nom de la valeur sur le graph (et pas en légende )

Coment faire?

[le petit nicolas]

je connais très peu (c'est-à-dire pas du tout) l'objet chart. difficile de t'aider vraiment

mais une bonne manière d'explorer est de lancer l'enregistreur de macros, de faire à la main ce que tu souhaites faire par macro, et de voir le code que ca te produit. En faisant ca j'obtiens par exemple :

Code :

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

1
2
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, _
LegendKey:=False, HasLeaderLines:=True

tu peux aussi regarder dans l'aide de VBA, cherche "Chart", et regarde en haut de cette page les "properties". tu devrais trouver ce qu'il te faut.

à plus