Bonjour à tous
Dans le cadre d'une analyse comparative, je dois faire apparaître dans un
graphique la position de ma région par rapport aux autres. Jusque là pas de
soucis. Cependant, j'aimerais faire ressortir cette position. Je travaille
sous excel 2003. J'ai réussi avec une macro à imposer une couleur autre que
les couleurs standard d'excel. Il s'agit de la couleur Vert Foncé (N° 51)
mais je bute pour faire apparaître ma région (elle et elle seule) en Jaune
(N° 6). Je n'arrive pas à poser ma condition dans la macro. Je navigue de
forum en forum mais pour l'instant en vain. Il faut savoir qu'au gré des
semaines le positionnement change, le graphique est dynamique. Je joins un
petit fichier illustrant mon souci. Merci pour votre aide
Ci-dessous ce que j'ai pu écrire !!!
Sub Test_Couleur()
' Test_Couleur Macro
' Macro enregistrée le 10/12/2010 par Test'
'
ChDir _
"C:\Test_Macro_CAS"
Workbooks.Open Filename:= _
"C:\Test_Macro_CAS\Exemple.xls"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = True
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 51
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(1).Select
If (valeurSecteur = Ile de France) Then
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = True
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
End Sub[/SIZE]
Dans le cadre d'une analyse comparative, je dois faire apparaître dans un
graphique la position de ma région par rapport aux autres. Jusque là pas de
soucis. Cependant, j'aimerais faire ressortir cette position. Je travaille
sous excel 2003. J'ai réussi avec une macro à imposer une couleur autre que
les couleurs standard d'excel. Il s'agit de la couleur Vert Foncé (N° 51)
mais je bute pour faire apparaître ma région (elle et elle seule) en Jaune
(N° 6). Je n'arrive pas à poser ma condition dans la macro. Je navigue de
forum en forum mais pour l'instant en vain. Il faut savoir qu'au gré des
semaines le positionnement change, le graphique est dynamique. Je joins un
petit fichier illustrant mon souci. Merci pour votre aide
Ci-dessous ce que j'ai pu écrire !!!
Sub Test_Couleur()
' Test_Couleur Macro
' Macro enregistrée le 10/12/2010 par Test'
'
ChDir _
"C:\Test_Macro_CAS"
Workbooks.Open Filename:= _
"C:\Test_Macro_CAS\Exemple.xls"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = True
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 51
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(1).Select
If (valeurSecteur = Ile de France) Then
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = True
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
End Sub[/SIZE]