Graphique tricolore avec vba couleurs conditionnelles (urgent)
Résolu/Fermé
A voir également:
- Graphique tricolore avec vba couleurs conditionnelles (urgent)
- Changer carte graphique - Guide
- Graphique excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Graphique sparkline - Guide
5 réponses
Le Pingou
Messages postés
12034
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 mars 2024
1 425
31 mai 2013 à 21:29
31 mai 2013 à 21:29
Bonjour,
Regardez par-là : https://forums.commentcamarche.net/forum/affich-16554793-excel-mise-en-forme-conditionnelle-graphique
Regardez par-là : https://forums.commentcamarche.net/forum/affich-16554793-excel-mise-en-forme-conditionnelle-graphique
tontong
Messages postés
2548
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
15 mars 2024
1 055
1 juin 2013 à 14:22
1 juin 2013 à 14:22
Bonjour,
Si le lien est encore valide, et de plus la connaissance du vba n'est pas nécessaire!!!
Si le lien est encore valide, et de plus la connaissance du vba n'est pas nécessaire!!!
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 304
1 juin 2013 à 16:47
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
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
Le Pingou
Messages postés
12034
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 mars 2024
1 425
1 juin 2013 à 16:37
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Utilisateur anonyme
2 juin 2013 à 18:45
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
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