Graphes

[roisabri]

Salut les amis,

J'essaye de code en vba , le tableau suivant comme quoi la note des éleves entre 25 et 60 et le nombre des étudiants.

25-35 35-45 45-55 55-60
10 8 5 2

Le code que j'essaye de l'excuter!!
Dim MonGraphe As Chart, MaPlage As Range

Set MaPlage = Worksheets("Contact").Range(Cells(24, 9), Cells(25, 12))
Set MonGraphe = ThisWorkbook.Charts.Add
MonGraphe.ChartType = xlColumnStacked100 'je veux la changer en 3 D ==>xl3DColumnClustered
MonGraphe.SetSourceData MaPlage, xlColumns
With MonGraphe
.HasTitle = True
With .ChartTitle
.Characters.Text = "Examen"
.Shadow = True
.Border.Weight = xlHairline
End With
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = "Note"
End With
With .Axes(xlValue, xlSecondary)
.HasTitle = True
.AxisTitle.Characters.Text = "Nombre etudiant"
End With
End With

Cet objet n'a pas de titre??? et pour l'affichage en 3 D il suffit de changer le charttype en xl3DColumnClustered???

Merci d'avance