Discussion :

[babybell]

Bonjour amis du forum

Dans une appli, je créé un graphique. J'indique par Macro les étiquettes de données avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Points(32).ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False

mais je n'arrive pas à ne sélectionner que le ou les points supérieurs à un certain pourcentage. Lorsque je pointe sur une partie du graphique, je vois bien ce pourcentage, mais je ne sais comment le faire ressortir par macro. Ais-je été assez clair ?

Quelqu'un saurait-il m'aider dans ma recherche ?

Merci d'avance

[babybell]

Ca y est, j'ai trouvé. Au cas où cela intéresserait quelqu'un, voici un code pour coloriser de plusieurs couleurs un graph suivant des valeurs:

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
Sub colorier()
 
Dim nbval, a, i, col As Integer
 
ActiveSheet.ChartObjects("Graphique 1").Activate
 
nbval = ActiveSheet.UsedRange.Rows.Count
 
For a = 1 To nbval
val_barre = Range("F" & a).Value
 
Debug.Print val_barre
 
If val_barre < 5 Then col = 3
If val_barre > 5 And val_barre < 10 Then col = 4
If val_barre > 10 Then col = 17
 
ActiveChart.SeriesCollection(1).Points(a).Interior.ColorIndex = col
 
Next
 
End Sub