Bonjour tout le monde,
Pouvez-vous me dire pourquoi le code suivant me renvoie l'erreur: l'élément portant ce nom est introuvable au niveau de la 11ème ligne. En effet, j'aimerais réaliser un graph en camembert à partir d'un tableau à 2 colonnes que j'ai préalablement trié (somme des doublons) et ce à l'aide de vba. Sauf que je n'arrive qu'à faire un code qui permet de placer l'élément de base du graphique sans pouvoir le personnaliser.
Voici le code en question:
en vous remerciant d'avance
Cordialement
Pouvez-vous me dire pourquoi le code suivant me renvoie l'erreur: l'élément portant ce nom est introuvable au niveau de la 11ème ligne. En effet, j'aimerais réaliser un graph en camembert à partir d'un tableau à 2 colonnes que j'ai préalablement trié (somme des doublons) et ce à l'aide de vba. Sauf que je n'arrive qu'à faire un code qui permet de placer l'élément de base du graphique sans pouvoir le personnaliser.
Voici le code en question:
Code:
Sub CamembertAMF()
Set MaZone = Selection.CurrentRegion
MaFeuille = ActiveSheet.Name
Charts.Add
With ActiveChart
.ChartType = xl3DPie
.SetSourceData Source:=MaZone, PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=MaFeuille
End With
MonGraph = Right(ActiveChart.Name, Len(ActiveChart.Name) - InStr(1, ActiveChart.Name, " "))
With ActiveSheet.Shapes(MonGraph)
.Top = ActiveSheet.[D3].Top
.Left = ActiveSheet.[D3].Left
.Height = ActiveSheet.[D3:J26].Height
.Width = ActiveSheet.[D3:J26].Width
End With
End Sub
en vous remerciant d'avance
Cordialement