Rapport de message :*
 

Re: 2 Couleurs de secteur seulement

Titre du sujet : Re: 2 Couleurs de secteur seulement
par myDearFriend! le 24/09/2012 23:13:36

Bonsoir DanC,

Pour la première partie de ta demande, il suffit de modifier le code VBA comme suit :

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", Range("A14").Interior.Color, Range("A13").Interior.Color)
    End If
End Sub
(A13-A14 comme dans ton fichier et non A12-A13 comme dans ton énoncé )

Pour la deuxième partie, navré, les graphiques sont loin d'être ma spécialité et, de plus, je ne suis pas sûr de bien comprendre ta demande. Je passe la main...

Concernant la fonction VBA « IIF », il s'agit simplement d'un équivalent au bloc d'instructions conditionnel « If ... Then ... End If » plus traditionnel. L'expression s'évalue sous la forme :
Iif ( expression à évaluer , retour si VRAI, retour si FAUX)
... voir l'aide VBA (F1) pour plus de détails.

Cordialement,