Graphique tricolore avec vba couleurs conditionnelles (urgent)

[Résolu/Fermé]
Signaler
-
 Utilisateur anonyme -
Bonjour, je ne m'y connais pas du tout en vba,

je souhaiterai trouvé un code à insérer pour un graphique qui me permette d'afficher les barres en fonction des données (vert brillant pour % inférieur à 80 % , orange compris entre 80 et 100 % et rouge au delà de 100%).
je suis sur excel 2003.

merci d'avance



5 réponses

sa m'interesse également, quelqu'un c'est ?
Personne ne sais ? :s
Messages postés
10513
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 octobre 2021
1 222
bonjour, merci!

j'ai bien vu ce topic, hors le lien présenté n'est plus dispo, de plus, cela se rapproche de ma demande mais ce n'est pas tout à fait sa. je ne connais pas le vba mais je pense que le code demandé ne sera pas le même que ce dont j'ai besoin.

cdlt
Messages postés
2497
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
19 octobre 2021
1 001
Bonjour,
Si le lien est encore valide, et de plus la connaissance du vba n'est pas nécessaire!!!
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
hé oui, je l'ai mis à disposition hier

il est bicolore mais on voit le principe donc facile pour 3 couleurs

remarque à Chacha:
Avant de penser VBA, ici sur CCM, on pense Excel.....

tiens, on va voir si les demandeurs savent dire Merci
Utilisateur anonyme
bonjour, même si cela n'a rien avoir avec ma demande! merci pour le fichier.
Messages postés
10513
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 octobre 2021
1 222
Bonjour,
Excusez mon manque de précision, voici l'endroit précis : https://forums.commentcamarche.net/forum/affich-16554793-excel-mise-en-forme-conditionnelle-graphique#37

Utilisateur anonyme
bonjour, pas de souci! merci^^

bonjour à tous,

j'ai trouvé la réponse que je voulais sur un autre forum.

pour ceux que sa interesse voici le code vba que j'ai obtenu pour ma demande (à adapter). je l'ai testé et fonctionne sans problème.

Sub CGraphique()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects(1).Activate
For A = 1 To ActiveChart.SeriesCollection(1).Points.Count
If ActiveChart.SeriesCollection(1).Points(A).HasDataLabel = False Then test = 1
ActiveChart.SeriesCollection(1).Points(A).HasDataLabel = True
rep = ActiveChart.SeriesCollection(1).Points(A).DataLabel.Text
mtexte = rep
If (Val(mtexte)) < 80 Then
ActiveChart.SeriesCollection(1).Points(A).Interior.ColorIndex = 4
ElseIf (Val(mtexte)) <= 100 And (Val(mtexte)) >= 80 Then
ActiveChart.SeriesCollection(1).Points(A).Interior.ColorIndex = 46
ElseIf (Val(mtexte)) > 100 Then
ActiveChart.SeriesCollection(1).Points(A).Interior.ColorIndex = 3
End If
If test = 1 Then ActiveChart.SeriesCollection(1).Points(A).HasDataLabel = False
Next A
Application.ScreenUpdating = True
Range("A1").Select
End Sub