Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Est-il possible de colorier les barres d'un graphique selon la val

Est-il possible de colorier les barres d'un graphique selon la val

12 réponses
Avatar
enzo
Est-il possible de colorier les courbes d'un graphique selon la valeur des
données: courbes qui monte BLEU courbe qui descend ROUGE.
Merci de votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Misange
Regarde ici
http://peltiertech.com/Excel/Charts/ConditionalChart1.html

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Ok merci ca fonctionne bien sur les hebbos mais pas sur les autres graphs
j'ai esseyé de modifier la macro mais je suis un peu perdu.
Merci de l'aide

"JB" wrote:

Sub coloriageCroissantCourbe()
Sheets("stats hebdomadaire").Activate
Nb_points = ActiveChart.SeriesCollection(1).Points.Count
Set sh = Sheets("hebdomadaire")
For i = 2 To Nb_points
If sh.Cells(i + 1, 3) > sh.Cells(i, 3) Then
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 4
Else
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 3
End If
Next i
ActiveChart.SeriesCollection(1).Points(1).Border.ColorIndex = _
ActiveChart.SeriesCollection(1).Points(2).Border.ColorIndex
End Sub


JB

On 11 mai, 10:52, enzo wrote:
J'ai une erreur dans la macro je vous envoie le fichier par mail ci ca va
pour vous.



"JB" wrote:

Sub coloriageCroissantCourbe()
ActiveSheet.ChartObjects(1).Activate
Nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 2 To Nb_points
If ActiveSheet.Cells(i + 1, 2) > ActiveSheet.Cells(i, 2) Then
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 4
Else
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 3
End If
Next i
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = _
ActiveChart.SeriesCollection(1).Points(2).Interior.ColorIndex
End Sub
http://boisgontierjacques.free.fr/fichiers/graphe/GrapheCroissant.xls
JB
On 11 mai, 10:31, enzo wrote:
Re bonjour,
Ca ne fonctione pas avec le graph en courbe??
"JB" wrote:
Bonjour,
ActiveSheet.ChartObjects(1).Activate
Nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 2 To Nb_points
If ActiveSheet.Cells(i + 1, 2) > ActiveSheet.Cells(i, 2) Then
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex >>>>>> 4
Else
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex >>>>>> 3
End If
Next i
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = _
ActiveChart.SeriesCollection(1).Points(2).Interior.ColorIndex
http://boisgontierjacques.free.fr/fichiers/graphe/GrapheCroissant.xls
Cordialement JB
On 10 mai, 16:59, enzo wrote:
Est-il possible de colorier les courbes d'un graphique selon la valeur des
données: courbes qui monte BLEU courbe qui descend ROUGE.
Merci de votre aide- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -













Avatar
enzo
Encore mille merci

"JB" wrote:


Sub coloriageCroissantMensuel()
Sheets("stats Mensuels").Activate
Nb_points = ActiveChart.SeriesCollection(1).Points.Count
Set sh = Sheets("Mensuel")
For i = 2 To Nb_points
If sh.Cells(i + 1, 2) > sh.Cells(i, 2) Then
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 4
Else
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 3
End If
Next i
ActiveChart.SeriesCollection(1).Points(1).Border.ColorIndex = _
ActiveChart.SeriesCollection(1).Points(2).Border.ColorIndex
End Sub

JB

On 11 mai, 13:06, enzo wrote:
Ok merci ca fonctionne bien sur les hebbos mais pas sur les autres graphs
j'ai esseyé de modifier la macro mais je suis un peu perdu.
Merci de l'aide



"JB" wrote:

Sub coloriageCroissantCourbe()
Sheets("stats hebdomadaire").Activate
Nb_points = ActiveChart.SeriesCollection(1).Points.Count
Set sh = Sheets("hebdomadaire")
For i = 2 To Nb_points
If sh.Cells(i + 1, 3) > sh.Cells(i, 3) Then
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 4
Else
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 3
End If
Next i
ActiveChart.SeriesCollection(1).Points(1).Border.ColorIndex = _
ActiveChart.SeriesCollection(1).Points(2).Border.ColorIndex
End Sub

JB

On 11 mai, 10:52, enzo wrote:
J'ai une erreur dans la macro je vous envoie le fichier par mail ci ca va
pour vous.

"JB" wrote:

Sub coloriageCroissantCourbe()
ActiveSheet.ChartObjects(1).Activate
Nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 2 To Nb_points
If ActiveSheet.Cells(i + 1, 2) > ActiveSheet.Cells(i, 2) Then
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 4
Else
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 3
End If
Next i
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = _
ActiveChart.SeriesCollection(1).Points(2).Interior.ColorIndex
End Sub

http://boisgontierjacques.free.fr/fichiers/graphe/GrapheCroissant.xls

JB

On 11 mai, 10:31, enzo wrote:
Re bonjour,

Ca ne fonctione pas avec le graph en courbe??

"JB" wrote:
Bonjour,

ActiveSheet.ChartObjects(1).Activate
Nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 2 To Nb_points
If ActiveSheet.Cells(i + 1, 2) > ActiveSheet.Cells(i, 2) Then
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex > > > > > > > 4
Else
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex > > > > > > > 3
End If
Next i
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = _
ActiveChart.SeriesCollection(1).Points(2).Interior.ColorIndex

http://boisgontierjacques.free.fr/fichiers/graphe/GrapheCroissant.xls

Cordialement JB

On 10 mai, 16:59, enzo wrote:
Est-il possible de colorier les courbes d'un graphique selon la valeur des
données: courbes qui monte BLEU courbe qui descend ROUGE.
Merci de votre aide- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -













1 2