Appliquer un code couleurs aux graphiques excels

[Gmbrox]

Bonjour à tous...

J'ai une petite question, pas très importante mais très utile en fait.

Voila: je souhaiterais savoir si il est possible d'appliquer une charte à tous les graphiques créés dans mon excel.

En effet je voudrais que dès que j'ai un nouveau graphique il choississe les couleurs parmis celle que je lui impose, et cela de maniere automatique
Exemple couleur 1: rouge, 2 noir, 3 Gris foncé etc... de maniere à ce que tout mes graphiques se ressemblent.

Pour l'instant je change les couleurs à la main ce qui est un peu fastidieux...

Donc je souhaiterais savoir si cela peut être fait de maniere automatique pour excel.

Merci à vous...

 

[Staple1600]

Re : Appliquer un code couleurs aux graphiques excels

Bonjour


En créant un graphique avec l'enregisteur de macro

On obtient le code (que j'ai un peu modifié) suivant

Tu peux personnalisé les lignes se référant au couleurs.

Tu peux faire la même chose (enregisteur de macro) avec le type de graphique que tu utilises
(tu adapes ensuite le code couleur selon tes gouts)
(cf. adaptation des mots en gras)

Sub Macro4()
Application.ScreenUpdating = False
Charts.Add
ActiveChart.ChartType = [B]xlColumnClustered [/B][COLOR=SeaGreen]'type de graphique[/COLOR]
ActiveChart.SetSourceData [B]Sheets("Feuil1").Range("B1:C17")[/B], xlColumns
[COLOR=SeaGreen]'source des données[/COLOR]
ActiveChart.Location xlLocationAsObject, "Feuil1"
[COLOR=SeaGreen]'location du graphique sur la feuille ou en tant qu'objet graphique
[/COLOR] 
With ActiveChart
    .HasTitle = False
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
                
        With .SeriesCollection(1)
            .Border.Weight = xlThin
            .Border.LineStyle = xlAutomatic
            .Shadow = False
            .InvertIfNegative = False
            [B].Interior.ColorIndex = 4[/B]
            .Interior.Pattern = xlSolid
        End With
            
        With .SeriesCollection(2)
            .Border.Weight = xlThin
            .Border.LineStyle = xlAutomatic
            .Shadow = False
            .InvertIfNegative = False
            [B].Interior.ColorIndex = 45[/B]
            .Interior.Pattern = xlSolid
        End With
        
        With .PlotArea
            [B].Border.ColorIndex = 16[/B]
            .Border.Weight = xlThin
            .Border.LineStyle = xlContinuous
            [B].Interior.ColorIndex = xlNone[/B]
        End With
End With
End Sub

 

[Gmbrox]

Re : Appliquer un code couleurs aux graphiques excels

Merci beaucoup!!!
Je vais tenter de comprendre, je suis pas une brute en macro encore!!

Bonne journée

 

[Staple1600]

Re : Appliquer un code couleurs aux graphiques excels

Re

Plein de choses ur les graphiques ici

SOURCE:http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html#altogether

Traduction automatique (lol)
Le remontant tout
Remontons les dernières étapes, pour produire un petit procédé robuste qui créera une feuille de diagramme avec exactement le bon nombre de série dans le bon endroit, en utilisant la gamme choisie comme point d'émission des données du diagramme.
La première rangée contient les étiquettes de série, la première colonne contient les valeurs de X, et le reste des colonnes contiennent les valeurs de Y pour chaque série.

Sub EmbeddedChartFromScratch()
    Dim myChtObj As ChartObject
    Dim rngChtData As Range
    Dim rngChtXVal As Range
    Dim iColumn As Long

    ' make sure a range is selected
    If TypeName(Selection) <> "Range" Then Exit Sub

    ' define chart data
    Set rngChtData = Selection

    ' define chart's X values
    With rngChtData
        Set rngChtXVal = .Columns(1).Offset(1).Resize(.Rows.Count - 1)
    End With

    ' add the chart
    Set myChtObj = ActiveSheet.ChartObjects.Add _
        (Left:=250, Width:=375, Top:=75, Height:=225)
    With myChtObj.Chart

        ' make an XY chart
        .ChartType = xlXYScatterLines

        ' remove extra series
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop

        ' add series from selected range, column by column
        For iColumn = 2 To rngChtData.Columns.Count
            With .SeriesCollection.NewSeries
                .Values = rngChtXVal.Offset(, iCOlumn - 1)
                .XValues = rngChtXVal
                .Name = rngChtData(1, iColumn)
            End With
        Next

    End With

End Sub

 

[CB60]

Re : Appliquer un code couleurs aux graphiques excels

Bonjour
si tu souhaite que tous tes graphiques soient de la même couleur, il te suffit de définir les couleurs qui t'interesse dans:
Outils
Option
Couleur
Remplissage et ligne du graphique.
A cet endroit tu met les couleurs que tu souhaite " la premiere pour la premiere série, la seconde pour la seconde série et ainsi de suite.

 

[Staple1600]

Re : Appliquer un code couleurs aux graphiques excels

Bonjour CB60


Il suffisait d'y penser aux Options

Le solutions les plus simples sont toujours les plus simples