couleur conditionnelle camembert

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
automne09
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 22 décembre 2017
Version d'Excel : 2010 FR

Message par automne09 » 22 décembre 2017, 12:45

Bonjour à tous,

J'ai fait quelques recherches mais étant novice en VBA je cale.

J'ai tableau brut d'après lequel je génère des tableaux croisés dynamiques. Je crée ensuite un graphique croisé dynamique en camembert.

Je souhaiterai que la série A soit rouge, la série B verte, la série C bleue etc ... Je souhaiterai pouvoir choisir les couleurs suivant leur code RBV.

Il me faut donc créer une macro, j'ai essayé de bidouiller des codes en suivant un tuto et en lisant des posts sur différents forums mais je n'y arrive pas.

Merci d'avance pour votre aide,
Amandine
Avatar du membre
CB60
Membre impliqué
Membre impliqué
Messages : 2'506
Appréciations reçues : 37
Inscrit le : 14 mai 2007
Version d'Excel : 2016

Message par CB60 » 22 décembre 2017, 13:14

Bonjour
Je pense que le plus simple serait de colorier, les cellules ( de A2à X) et le graph reprend les couleurs des cellules.
Sub coloriage()
   ActiveSheet.ChartObjects(1).Activate 'selection du premier graph
   For i = 1 To ActiveChart.SeriesCollection(1).Points.Count ' boucle pour compter le nombre de point
     ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = ActiveSheet.Cells(i + 1, 1).Interior.ColorIndex 'reprend la couleur de cellule (i+1au debut de la macro = 2 )
   Next i
End Sub

a
automne09
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 22 décembre 2017
Version d'Excel : 2010 FR

Message par automne09 » 22 décembre 2017, 14:04

Merci !

Ca marche presque !

Exemple :
bleu 1
vert 2
jaune 3
rouge 4
violet 5
Avatar du membre
CB60
Membre impliqué
Membre impliqué
Messages : 2'506
Appréciations reçues : 37
Inscrit le : 14 mai 2007
Version d'Excel : 2016

Message par CB60 » 22 décembre 2017, 14:11

re
tu a mis ta couleur bleu dans quelle cellule?
a
automne09
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 22 décembre 2017
Version d'Excel : 2010 FR

Message par automne09 » 22 décembre 2017, 14:30

Dans A1,
j'ai essayé en enlevant le +1 et ça fonctionne avec le tableau donné en exemple, mais je travail avec des tableaux croisés dynamiques et le problème persiste dans ce cas.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message