Coloriser des graphes par ordre croissant

Le
jean-luc Guitard
bonjour,
sur plusieurs graphiques (Camembert), je colorise les secteurs de
différentes couleurs avec ce bout de programme,
voici mes données:
Existing Brand Modification Mandatory Value Engineering
Level1 32604000 25600 0
Level2 85888639 0 1661000
Level3 6455161,1 207801 4487244


For a = 1 To 3
Niveau = Sheets("Source").Cells(a + 1, 10).Value
If Niveau = "Level1" Then
graphe.Chart.SeriesCollection(1).Points(a).Format.Fill.ForeColor.RGB =
RGB(0, 241, 0)
If Niveau = "Level2" Then
graphe.Chart.SeriesCollection(1).Points(a).Format.Fill.ForeColor.RGB =
RGB(232, 0, 0)
If Niveau = "Level3" Then
graphe.Chart.SeriesCollection(1).Points(a).Format.Fill.ForeColor.RGB =
RGB(0, 204, 255)
Next a

je souhaiterai coloriser les secteurs toujours de la même façon du plus
grand au plus petit (rouge, vert , bleu)

merci si vous avez une solution et bonne et heureuse année à tous sans
oublier la santé
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #22979991
Bonjour.
Essaie :

With graphe.Chart.SeriesCollection(1)
Var = .Values
cols = Array(RGB(0, 232, 0), RGB(241, 0, 204), RGB(0, 0, 255))
vals = Array(Application.Min(Var), Application.Large(Var, 2),
Application.Max(Var))
For i = 1 To 3
x = Application.Index(cols, Application.Match(Var(i), vals, 0))
.Points(i).Interior.Color = x
Next i
End With

Cordialement.
Daniel

bonjour,
sur plusieurs graphiques (Camembert), je colorise les secteurs de
différentes couleurs avec ce bout de programme,
voici mes données:
Existing Brand Modification Mandatory Value Engineering
Level1 32604000 25600 0
Level2 85888639 0 1661000
Level3 6455161,1 207801 4487244


For a = 1 To 3
Niveau = Sheets("Source").Cells(a + 1, 10).Value
If Niveau = "Level1" Then
graphe.Chart.SeriesCollection(1).Points(a).Format.Fill.ForeColor.RGB = RGB(0,
241, 0)
If Niveau = "Level2" Then
graphe.Chart.SeriesCollection(1).Points(a).Format.Fill.ForeColor.RGB =
RGB(232, 0, 0)
If Niveau = "Level3" Then
graphe.Chart.SeriesCollection(1).Points(a).Format.Fill.ForeColor.RGB = RGB(0,
204, 255)
Next a

je souhaiterai coloriser les secteurs toujours de la même façon du plus grand
au plus petit (rouge, vert , bleu)

merci si vous avez une solution et bonne et heureuse année à tous sans
oublier la santé......
jean-luc Guitard
Le #22980431
ci beaucoup à Daniel C
c'est ce que je cherchais, sans succès.........
Publicité
Poster une réponse
Anonyme