Bonjour à vous tous,
Je suis occupé de créer un graphique croisé sur lequel j'ai fait un tri par ordre croissant pour voir les meilleurs résultats.
Le graphique donne un rendu correct, le tout est que j'aimerai ajouter un nombre sur chaque colonne, 1 pour le premier du classement 2, 3, 4, 5 etc ...
Je travaille sur un macro, pourriez vous m'aider ?
Merci d'avance
Je suis occupé de créer un graphique croisé sur lequel j'ai fait un tri par ordre croissant pour voir les meilleurs résultats.
Le graphique donne un rendu correct, le tout est que j'aimerai ajouter un nombre sur chaque colonne, 1 pour le premier du classement 2, 3, 4, 5 etc ...
Je travaille sur un macro, pourriez vous m'aider ?
Merci d'avance
Code:
Sheets("Moyenne par jour").Select
'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) > 3 Then
'suivant le résultat, change la couleur
ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 4
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