Rapport de message :*
 

Re: couleur graphique

Titre du sujet : Re: couleur graphique
par myDearFriend! le 01/10/2009 20:42:22

Re,

Citation :
djstroubi a écrit :
...
De plus je sais que je ne suis plus dans le bon post mais pour le problème des étiquettes c'est sur ces graphiques aussi.

Quand les couleurs sont respectées les étiquettes de données disparaissent.
Ex: dans la feuille "graph vendredi" sur le graphique ampack les étiquettes de données sont présentes et restent tandis que pour les autres graphiques lorsque je les insère elles disparaissent.
...

Ok, je n'avais pas compris le problème... cette disparition d'étiquette est dûe au traitement VBA appliqué.

Remplace le code que je te propose ci-dessus par celui-ci (toujours dans le ThisWorkbook) et ce problème devrait aussi être résolu :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'myDearFriend!  -  www.mdf-xlpages.com
Dim Plage As Range, R As Range
Dim G As ChartObject
Dim Sr As Series
    If TypeName(Sh) = "Chart" Then
        Application.ScreenUpdating = False
        Set Plage = Sheets("FCoul").Columns(1)
        For Each Sr In ActiveChart.SeriesCollection
            If Sr.Name <> "" Then
                Set R = Plage.Find(Sr.Name, LookIn:=xlValues)
                If Not R Is Nothing Then
                    Sr.ClearFormats
                    Sr.ApplyDataLabels ShowSeriesName:=True
                    With Sr.Interior
                        .ColorIndex = R.Interior.ColorIndex
                        .Pattern = xlSolid
                    End With
                End If
            End If
        Next Sr
        For Each G In ActiveChart.ChartObjects
            For Each Sr In G.Chart.SeriesCollection
                If Sr.Name <> "" Then
                    Set R = Plage.Find(Sr.Name, LookIn:=xlValues)
                    If Not R Is Nothing Then
                        Sr.ClearFormats
                        Sr.ApplyDataLabels ShowSeriesName:=True
                        With Sr.Interior
                            .ColorIndex = R.Interior.ColorIndex
                            .Pattern = xlSolid
                        End With
                    End If
                End If
            Next Sr
        Next G
        Application.ScreenUpdating = True
    End If
End Sub
(je clos l'autre fil de discussions sur ce problème spécifique du coup)

Cordialement,