VBA pour TCD

[C@thy]

Bonjour,

je voudrais mettre des étiquettes de données avec les valeurs, et les écrire en mauve sur fond blanc.

ceci ne fonctionne pas : (propriété ou méthode non gérée par cet objet)

Dim i As Integer
For i = 1 To 2
With ActiveSheet.ChartObjects(1).Chart
.ApplyDataLabels xlDataLabelsShowValue
End With
With ActiveSheet.ChartObjects(1).SeriesCollection(i)
.DataLabels.ColorIndex = 24
.DataLabels.Background = 2

end with
Next i

Pourriez-vous m'indiquer la bonne syntaxe svp???

Un grand merci à vous

C@thy

 

[Pierrot93]

Re : VBA pour TCD

Bonjour Cathy

essaye peut être ainsi :

Sub test()
Dim i As Integer
With ActiveSheet.ChartObjects(1).Chart
    .ApplyDataLabels
    For i = 1 To 2
        With .SeriesCollection(i).DataLabels.Font
            .ColorIndex = 21
            .Background = 2
        End With
    Next i
End With
End Sub

bonne soirée
@+

 

[C@thy]

Re : VBA pour TCD

Yep! Merci Pierrot,
ça marche nettement mieux!!!

Bises

C@thy

 

[C@thy]

Re : VBA pour TCD

en fait, j'ai modifié comme suit :

Dim i As Integer
With ActiveSheet.ChartObjects(1).Chart
.ApplyDataLabels
For i = 1 To 2
With .SeriesCollection(i).DataLabels
.Font.ColorIndex = 21
.Interior.ColorIndex = 2
End With
Next i
End With

et c'est nickel,

encore merci!

C@thy