1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Private Sub FormatConditionnelGraphique(ByVal Ch As Chart)
Dim Ns As Integer, i As Integer
Dim Test As Boolean
Dim Pt As Point
With Ch
'nombre de séries
Ns = .SeriesCollection.Count
For i = 1 To Ns
'parcourts tous les points
For Each Pt In .SeriesCollection(i).Points
'teste la présente des étiquettes sur le graphs
Test = Pt.HasDataLabel
'affiche les étiquettes
Pt.HasDataLabel = True
'récupère les informations des étiquettes
'convertit l'étiquette en nombre et fais le test
'suivant le résultat, change la couleur
Pt.Interior.ColorIndex = IIf(CDbl(Pt.DataLabel.Text) > 7, 43, 3)
'remets dans l'état initial le graphique
Pt.HasDataLabel = Test
Next Pt
Next i
End With
End Sub |
Partager