Titre du sujet : Re: 2 Couleurs de secteur seulement
par myDearFriend! le 20/09/2012 12:34:33
Bonjour DanC, le Forum,
Peut-être une façon de faire en pièce jointe...
J'ai utilisé le code VBA suivant :
DANS LE MODULE DE CODE DE LA FEUILLE 1
Option Explicit
'myDearFriend! - www.mdf-xlpages.com
Private Sub Worksheet_Change(ByVal Target As Range)
'Ne prend en compte que la première cellule si plage modifiée
Set Target = Target(1)
'Si modif détectée dans la colonne "Participation"
If Not Application.Intersect(Target, Range("C2:C10")) Is Nothing Then
'Adapte couleur de l'Aire correspondante en fonction de la valeur saisie ("O" ou autre)
ChartObjects("Graphique 2").Chart.SeriesCollection(1).Points(Target.Row - 1) _
.Interior.Color = IIf(Target.Value = "O", 49407, 12419407)
End If
End Sub
En espérant que ça puisse t'aider.
Cordialement,
|
Didier FOURGEOT