Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modification des couleurs d'un graphique par le code

multimania

XLDnaute Nouveau
Bonjour à tous,

Voici ma question,

Est-il possible de modifier les couleurs d'un graphique (genre camembert) par le code VBA. Le but est d'avoir un programme qui permette de choisir la couleur d'une des parts du camembert et la modifier.

Si quelqu'un à une piste ...

Merci d'avance
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Modification des couleurs d'un graphique par le code

Bonjour multimania et bienvenue sur le forum

Si quelqu'un à une piste ...
voir pièce jointe .............. ce n'est qu'une piste


à+
Philippe
 

Pièces jointes

  • 111.xls
    28 KB · Affichages: 191
  • 111.xls
    28 KB · Affichages: 205
  • 111.xls
    28 KB · Affichages: 208

jojo3008

XLDnaute Junior
Re : Modification des couleurs d'un graphique par le code

salut phl, multimania.

voici une piste pour le corp de ta procédure :

Code:
ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(1).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    With Selection.Interior
        .ColorIndex = 1
        .Pattern = xlSolid
    End With

le point(1) correspond à la 1e ligne de données de ton tableau et colorie les contours et l interieur du quartier de camembert.
 

multimania

XLDnaute Nouveau
Re : Modification des couleurs d'un graphique par le code

Ok merci a vous !!

C'est plus qu'une piste c'est une trés bonne réponse qui m'à orienté sur les solutions.
Maintenant je peut manier tout le graphique (etiquette labelle couleur police taille rotation angle etc..) un vrai bonheur.

Je me sert en fait du même grapheur dans access et en code vb.

Merci encore
 

Discussions similaires

Réponses
6
Affichages
319
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…