« Macros-commandes VBA/Création de Graphique » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 232 :
Dim rPlage As Range
'Définition de la plage des données source du graphique
Set rPlage = Sheets(sheDonnéesSource).Range("A:E")
Ligne 297 ⟶ 296 :
' Création du graphique, ne pas oublier le .Chart final
' L'objet graphique se place sur la plage et à sa taille
Set chGraph = .ChartObjects.Add(rPlageAcceuil.Left, rPlageAcceuil.Top, rPlageAcceuil.Width, rPlageAcceuil.Height).Chart
' Source du graphique
Set rPlageSource = .Range("A:E")
Ligne 304 ⟶ 302 :
With chGraph
' Type barre empilée
.ChartType = xlBarStacked
Ligne 314 ⟶ 311 :
.ChartTitle.Characters.Text = rPlageSource.Cells(1, 1)
' Légende en position haute
.Legend.Position = xlLegendPositionTop
End With
| |||