Sujet Précédent Sujet Suivant

Graphique tricolore avec vba couleurs conditionnelles (urgent)

Résolu/Fermé
Utilisateur anonyme - 30 mai 2013 à 13:59
 Utilisateur anonyme - 2 juin 2013 à 18:45
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



A voir également:

5 réponses

Réponse 1 / 5
fionach
30 mai 2013 à 19:27
sa m'interesse également, quelqu'un c'est ?
0
Réponse 2 / 5
Utilisateur anonyme
31 mai 2013 à 08:40
Personne ne sais ? :s
0
Réponse 3 / 5
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
31 mai 2013 à 21:29
Bonjour,
Regardez par-là : https://forums.commentcamarche.net/forum/affich-16554793-excel-mise-en-forme-conditionnelle-graphique

0
Utilisateur anonyme
1 juin 2013 à 14:15
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
0
tontong Messages postés 2548 Date d'inscription mercredi 3 février 2010 Statut Membre Dernière intervention 15 mars 2024 1 054
1 juin 2013 à 14:22
Bonjour,
Si le lien est encore valide, et de plus la connaissance du vba n'est pas nécessaire!!!
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 juin 2013 à 16:47
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
0
Utilisateur anonyme
2 juin 2013 à 18:43
bonjour, même si cela n'a rien avoir avec ma demande! merci pour le fichier.
0
Réponse 4 / 5
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
1 juin 2013 à 16:37
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

0
Utilisateur anonyme
2 juin 2013 à 18:42
bonjour, pas de souci! merci^^
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Utilisateur anonyme
2 juin 2013 à 18:45
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
0

Discussions similaires

VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Nuages de point avec abscisses différentes
LCFloor -
LCFLoor -

6 réponses
Que veut dire Carte Graphique OC??
Benallou.Mohamed -
Bob -

6 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses