Créer les sparklines avec Excel VBA

Les mini-graphiques Sparklines ont été introduits avec Excel 2010. Vous pouvez illustrer rapidement et facilement un groupe de valeurs numériques. Ce sont de simples mini-diagrammes qui peuvent être sélectionnés comme arrière-plan de la cellule. Il existe des types de ligne, de colonne ou de profit / perte à titre d’illustration.
Ligne

Sub SparkLineLigne()
ThisWorkbook.Worksheets("Feuil3").Activate
Range("A16").SparklineGroups.Add xlSparkLine, "A1:A14"
End Sub

 

Le programme suivant crée une Sparkline de type ligne:

Commentaires:
■ La méthode Add () de la liste SparkLineGroups crée un objet de la classe SparkLineGroup dans la cellule cible Add () (ici A10).
■ Le premier paramètre (type) est l’élément xlSparkLine de l’appareil Auflis- xISparkLine xlSparkType. Cela crée une ligne.
■ Les valeurs de cette ligne sont déterminées à partir du deuxième paramètre, une chaîne de caractères avec une plage de cellules.
Vous pouvez voir le résultat dans la figure suivante:

Colonne
Un sparkline de colonne est créé de la même manière:

Sub SparkLineColonne()
ThisWorkbook.Worksheets("Feuil4").Activate
Range("A16").SparklineGroups.Add xlSparkColumn, "A1:A15"
End Sub

 

Commentaires:
■ Cette fois, l’élément xlSparkColumn de la liste xlSpark- xlSparkColumn Type est utilisé. Cela crée une série de barres.
Le résultat est illustré à la figure suivante:

Affichage des profits / pertes
Enfin, il existe un indicateur de résultat sous forme de barres pour + ou -:

Sub SparkLineProfitsPertes()
ThisWorkbook.Worksheets("Feuil5").Activate
Range("A16").SparklineGroups.Add _
xlSparkColumnStacked100, "A1:A15"
End Sub

 

Commentaires:
■ L’élément xlSparkColumnStacked100 de la liste xlSparkType assure la distinction entre les valeurs positives et négatives.
Vous pouvez voir le résultat dans la figure suivante:


Formatage
Avec un graphique sparkline, certaines valeurs peuvent être mises en évidence. Les couleurs peuvent également être modifiées. Un exemple:

Sub SparkLineFormatage()
ThisWorkbook.Worksheets("Feuil6").Activate
With Range("A16").SparklineGroups
.Add xlSparkLine, "A1:A15"
.Item(1).SeriesColor.ThemeColor = 2
.Item(1).Points.Markers.Visible = True
.Item(1).Points.Markers.Color.ThemeColor = 10
.Item(1).Points.Negative.Visible = True
.Item(1).Points.Negative.Color.ThemeColor = 9
End With
End Sub

 

Commentaires:
■ Tout d’abord, la couleur de la ligne est modifiée. Cela est réalisé à l’aide de la sous-propriété ThemeColor de la propriété SeriesColor du premier élément de la collection SparklineGroups. Les couleurs possibles sont indiquées dans l’exemple ci-dessous.
■ Les points de données reçoivent un marquage visible dans une certaine couleur. Pour ce faire, les propriétés des marqueurs sont définies dans la collection Points.Markers. D’abord la propriété Visible, puis la sous-propriété ThemeColor de la propriété Color.


Toutes les couleurs
Voici un aperçu de toutes les couleurs des barres (et des lignes) chez Sparklines dans le programme suivant:

Sub SparkLinetouslescouleurs()
Dim i As Integer
ThisWorkbook.Worksheets("Feuil7").Activate
For i = 1 To 11
Cells(i + 13, 1).SparklineGroups.Add _
xlSparkColumn, "A1:A15"
Cells(i + 13, 1).SparklineGroups.Item(1). _
SeriesColor.ThemeColor = i
Next i
Cells(14, 1).Interior.Color = vbBlack
End Sub

 

Commentaires:
■ Les couleurs sont numérotées de 1 à 15.
■ Pour une représentation plus claire, la cellule avec les barres blanches a un fond noir.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x