XL pour MAC Office MAC & Graphiques

Adrien974

XLDnaute Nouveau
Bonjour à tous,

Je m’arrache les cheveux sur une utilisation qui me paraît pourtant basique… J’ai un tableau qui contient le CA de plusieurs magasins (magasins en colonne), mois par mois.
Je souhaite mettre ces données en forme visuelle en faisant des graphiques cercles, un graphique par mois.
Mais je souhaiterais que chaque magasin conserve dans le graphique la même couleur, pour chaque mois. Afin d’avoir un visu direct sur l’évolution de ce magasin dans l’ensemble. Et impossible de mettre la main sur la fonction correspondante.

Auriez-vous une idée ?
 

crocrocro

XLDnaute Impliqué
Bonjour Adrien, bonjour à tous,
je souhaiterais que chaque magasin conserve dans le graphique la même couleur, pour chaque mois
le code suivant de la discussion https://excel-downloads.com/threads/graph-camenbert-avec-double-proportion.20083823/ pourra peut-être t'aider :
VB:
Sub CouleurChoixParTable()
Dim ObjPoint As Point
Dim i As Integer
Dim TabPoints As Variant
Dim Cell As Range
    ActiveSheet.ChartObjects("Graphique 3").Activate
    With ActiveChart
        TabPoints = ActiveChart.SeriesCollection(1).XValues
        i = 0
        For Each ObjPoint In ActiveChart.SeriesCollection(1).Points
            i = i + 1
            For Each Cell In Range("TableauChoix")
                If InStr(TabPoints(i), Cell.Value) <> 0 Then
                    ObjPoint.Format.Fill.ForeColor.RGB = Cell.Interior.Color
                End If
            Next Cell
        Next ObjPoint
    End With
End Sub
 

Statistiques des forums

Discussions
315 093
Messages
2 116 136
Membres
112 667
dernier inscrit
foyoman