TintAndShade et graphique

Résolu/Fermé
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - 21 août 2014 à 08:46
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - 25 août 2014 à 10:27
slt voici un code qui essaye de generer des graphique sur la base des couleur de colorindex

titre = "revenu" Then couleur = 56
Dim indice As Single
indice = 0.1
For Each Po In Dec.mg.SeriesCollection(1).Points
    With Po.Interior
        .ColorIndex = couleur
        .TintAndShade = indice
    End With
    indice = indice - 0.05
Next Po


dec.mg est un graphique de type xlpie
à chaque execution le code me renvoi l'erreur 1004 ("erreur defini parl'application ou par l'objet")

TintAndShade n'existe pas pour les points ?

auquel cas y'a-t-il un moyen efficace de contourner le problème ?

merci d'avance

1 réponse

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
25 août 2014 à 10:27
voilà j'ai contourner le problème (oui je sais c'est moche)

Dim indice As Single
indice = -0.1
Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.ColorIndex = couleur
For Each Po In Dec.mg.SeriesCollection(1).Points
    Po.Interior.Color = Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.Color
    Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.TintAndShade = indice
    indice = indice - 0.05
Next Po
Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.ColorIndex = 0
0