Code VBA - changer couleur etiquette histogramme sous condition

[kd13]

bonjour je suis debutant en VBA excel et
j'aimerais bien avoir un script qui me permet de changer la couleur des étiquettes de mon histogramme selon une condition
couleur vert si la valeur de l'etiquette est positive sinon rouge

Merci !!​

 

[kd13]

Re : Code VBA - changer couleur etiquette histogramme sous condition

j'ai essayé ce code mais ca marche pas


Sub Macro3()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(2).Select

ActiveChart.SeriesCollection(2).DataLabels.Select 'sélection de l'étiquette
If [selection.value <0 ] Then
With Selection.Interior
.ColorIndex = 3 'couleur de fond rouge
.PatternColorIndex = 1
.Pattern = xlSolid
End With
Else With Selection.Interior
.ColorIndex = 8 'couleur de fond rouge
.PatternColorIndex = 1
.Pattern = xlSolid
End With
End If
With Selection.Interior
.ColorIndex = 8 'couleur de fond rouge
.PatternColorIndex = 1
.Pattern = xlSolid
End With
End Sub

 

[kjin]

Re : Code VBA - changer couleur etiquette histogramme sous condition

Bonsoir,

Sub Macro3()
Dim cht As Chart, tablo
Set cht = ActiveSheet.ChartObjects("Graphique 1").Chart
With cht.SeriesCollection(2)
    tablo = .Values
    For i = 1 To UBound(tablo)
        If tablo(i) > 0 Then
            .Points(i).DataLabel.Interior.ColorIndex = 4
        Else
            .Points(i).DataLabel.Interior.ColorIndex = 3
        End If
    Next
End With
End Sub

A+
kjin

 

[kd13]

Re : Code VBA - changer couleur etiquette histogramme sous condition

Merci bien
mais il y' une erreur au niveau de cette ligne
"parametre non valide"
.Points(i).DataLabel.Interior.ColorIndex = 4

 

[kd13]

Re : Code VBA - changer couleur etiquette histogramme sous condition

Merci beaucoup ca marche parfaitement maintenant 🙂)