Bonjour,

J'utilisais la formule ci-dessous mais depuis que j'ai changé des choses dans mon classeur elle ne fonctionne plus. Je l'utilisais pour changer la couleur de mon graphique en fontion des résultats. Qu'en pensez vous ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Sub FormatConditionnelGraphique()
 'Compte le nombre de séries
 For c = 1 To ActiveChart.SeriesCollection.Count
 'compte le nombre de points
 For d = 1 To ActiveChart.SeriesCollection(c).Points.Count
 'teste la présente des étiquettes sur le graphs
 If ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = False Then Test = 1
 'affiche les étiquettes
 ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = True
 'récupère les informations des étiquettes
 rep = ActiveChart.SeriesCollection(c).Points(d).DataLabel.Text
 'convertit l'étiquette en nombre et fais le test
 If CDbl(rep) > 7 Then
 'suivant le résultat, change la couleur
 ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 43
 Else
 ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 3
 End If
 'remets dans l'état initial le graphique
 If Test = 1 Then ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = False
 Next d
 Next c
 End Sub
Merci à tous