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,
|