« Macros-commandes VBA/Exercices/Génération de graphiques » : différence entre les versions

Contenu supprimé Contenu ajouté
Copaulau (discussion | contributions)
Copaulau (discussion | contributions)
Ligne 56 :
{{Solution
| contenu =
 
Etape 1:
Tout d'abord, il faut que créer un graphique manuellement. Pour cela, il faut sélectionner toute la plage des données, cliquer sur insertion et sur le type de graphique que vous souhaité. Dans notre cas, le graphique en colonne sera le plus adapté.
ATTENTION!! N'oubliez pas d’activer l'enregistreur au début de votre démarche et d'y mettre fin à la fin de votre démarche.
 
Etape 2:
Le code que génère votre graphique doit ressembler à cela:
 
<source lang="vb">
Sub creergraphique()
ici votre code VBA
'
' creergraphique Macro
'
 
'
Range("A1:D7").Select
Range("A7").Activate
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$D$7")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "Moyenne"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Moyenne"
With Selection.Format.TextFrame2.TextRange.Characters(1, 7).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 7).Font
.BaselineOffset = 0
.Bold = msoFalse
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(89, 89, 89)
.Fill.Transparency = 0
.Fill.Solid
.Size = 14
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Spacing = 0
.Strike = msoNoStrike
End With
End Sub
</source>
Etape 3:
A présent il faut créer un bouton qui permettra d'activer le graphique. Pour le créer il faut que vous supprimiez votre graphique.
Il faut ensuite aller dans "Développeur" puis "insérer", vous pouvez insérer une forme.
La deuxième étape va être d'ajouter un texte (il faut cliquer droit puis modifier le texte)
Pour finir, vous devez cliquer droit sur votre bouton puis lui affecter une macro (celle que vous avez obtenu en créant votre graphique).
 
 
 
}}