Bonjour,
J'ai un graphique avec des données négatives et positives.
Est il possible d'avoir une couleur pour les positives et une couleur pour
les négatives, sans avoir besoins de les changer manuellement.
Cordialement
Guy
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
Bill Gates
Bonjour Guy72, je te secoue la main.
Tu peux t'insuffler de la macro là-dessous :
Sub PointColor()
' (c) Bill Gates, groupe de l'Excel en français, 2006
Dim Tbl
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) Tbl = .Values With .Points For I = 1 To .Count .Item(I).Interior.Color = IIf(Tbl(I) < 0, vbRed, vbBlue) Next I End With
End With
End Sub
Votre dévoté Bill Gates
Bonjour, J'ai un graphique avec des données négatives et positives. Est il possible d'avoir une couleur pour les positives et une couleur pour les négatives, sans avoir besoins de les changer manuellement. Cordialement Guy
Bonjour Guy72, je te secoue la main.
Tu peux t'insuffler de la macro là-dessous :
Sub PointColor()
' (c) Bill Gates, groupe de l'Excel en français, 2006
Dim Tbl
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
Tbl = .Values
With .Points
For I = 1 To .Count
.Item(I).Interior.Color = IIf(Tbl(I) < 0, vbRed, vbBlue)
Next I
End With
End With
End Sub
Votre dévoté Bill Gates
Bonjour,
J'ai un graphique avec des données négatives et positives.
Est il possible d'avoir une couleur pour les positives et une couleur pour
les négatives, sans avoir besoins de les changer manuellement.
Cordialement
Guy
' (c) Bill Gates, groupe de l'Excel en français, 2006
Dim Tbl
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) Tbl = .Values With .Points For I = 1 To .Count .Item(I).Interior.Color = IIf(Tbl(I) < 0, vbRed, vbBlue) Next I End With
End With
End Sub
Votre dévoté Bill Gates
Bonjour, J'ai un graphique avec des données négatives et positives. Est il possible d'avoir une couleur pour les positives et une couleur pour les négatives, sans avoir besoins de les changer manuellement. Cordialement Guy
Guy72
Bonsoir, J'ai mis la macro dans la page de code, rien ne se passe Cordialement Guy
"Bill Gates" a écrit dans le message de news:
Bonjour Guy72, je te secoue la main.
Tu peux t'insuffler de la macro là-dessous :
Sub PointColor()
' (c) Bill Gates, groupe de l'Excel en français, 2006
Dim Tbl
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) Tbl = .Values With .Points For I = 1 To .Count .Item(I).Interior.Color = IIf(Tbl(I) < 0, vbRed, vbBlue) Next I End With
End With
End Sub
Votre dévoté Bill Gates
Bonjour, J'ai un graphique avec des données négatives et positives. Est il possible d'avoir une couleur pour les positives et une couleur pour les négatives, sans avoir besoins de les changer manuellement. Cordialement Guy
Bonsoir,
J'ai mis la macro dans la page de code, rien ne se passe
Cordialement
Guy
"Bill Gates" <bill.gates@microsoft.com> a écrit dans le message de news:
eyIfSo9VGHA.436@TK2MSFTNGP14.phx.gbl...
Bonjour Guy72, je te secoue la main.
Tu peux t'insuffler de la macro là-dessous :
Sub PointColor()
' (c) Bill Gates, groupe de l'Excel en français, 2006
Dim Tbl
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
Tbl = .Values
With .Points
For I = 1 To .Count
.Item(I).Interior.Color = IIf(Tbl(I) < 0, vbRed, vbBlue)
Next I
End With
End With
End Sub
Votre dévoté Bill Gates
Bonjour,
J'ai un graphique avec des données négatives et positives.
Est il possible d'avoir une couleur pour les positives et une couleur
pour les négatives, sans avoir besoins de les changer manuellement.
Cordialement
Guy
Bonsoir, J'ai mis la macro dans la page de code, rien ne se passe Cordialement Guy
"Bill Gates" a écrit dans le message de news:
Bonjour Guy72, je te secoue la main.
Tu peux t'insuffler de la macro là-dessous :
Sub PointColor()
' (c) Bill Gates, groupe de l'Excel en français, 2006
Dim Tbl
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) Tbl = .Values With .Points For I = 1 To .Count .Item(I).Interior.Color = IIf(Tbl(I) < 0, vbRed, vbBlue) Next I End With
End With
End Sub
Votre dévoté Bill Gates
Bonjour, J'ai un graphique avec des données négatives et positives. Est il possible d'avoir une couleur pour les positives et une couleur pour les négatives, sans avoir besoins de les changer manuellement. Cordialement Guy
