Graphique empilé 100 VBA

Bonjour a tous

Je cherche a créer un graphique empilé 100 grâce a une macro, mais je n'y arrive pas, a chaque fois il me dit que c'est faux. Voici ce que j'ai écrit

Sub Macro24()

'

Range("BP7:BP14,BY7:BY14").Select

Range("BY7").Activate

ActiveSheet.Shapes.AddChart

ActiveChart.ChartType = xlColumnStacked100

ActiveChart.SetSourceData Source:=Range("$BP$7:$BP$14;$BY$7:$BY$14")

ActiveChart.ApplyLayout (2)

End Sub

Quelqu'un pourrait il m'aider? Merci beaucoup.

Bonjour,

Un petit fichier pour l'exemple et éviter de construire un fichier.

Merci

Cdlt

J'ai répondu toute seule a ma question en trifouillant.. Par contre je ne sais pas comment faire pour modifier le nom de la série et celui des données en abscisse (la je suis obligée de retracer un autre tableau pour que tout correspond. Je joins un fichier si quelqu'un a la solution merci

Sub Graphique()

Range("A2:C10").Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlColumnStacked100

ActiveChart.SetSourceData Source:=Range("$A$2:$C$10")

ActiveChart.ApplyLayout (2)

ActiveChart.ChartTitle.Select

ActiveChart.ChartTitle.Text = "Différentiel Points Marqués/Encaissés par Garde"

Selection.Format.TextFrame2.TextRange.Font.Size = 14

End Sub

Bonsoir,

Je ne sais pas si je réponds à ta question mais un exemple.

Cdlt

Option Explicit
Public Sub Graph_jep()
Dim myRange
Dim mySheetName As String

    Range("A3").Select
    Selection.CurrentRegion.Select
    myRange = Selection.Address
    mySheetName = ActiveSheet.Name
    ActiveSheet.ChartObjects.Add(250, 120, 600, 310).Select
    Application.CutCopyMode = False
    ActiveChart.ChartWizard _
       Source:=Sheets(mySheetName).Range(myRange), _
       Gallery:=xlColumnStacked100, Format:=4, PlotBy:=xlColumns, _
       CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
       Title:="Différentiel Points Marqués/Encaissés par Garde", CategoryTitle:="Garde", _
       ValueTitle:="Nb points", ExtraTitle:=""

End Sub

Oui ça répond parfaitement !!! Merci beaucoup de ton aide.