Graphique réagissant aux données

Bonjour,

J'ai un petit problème avec un fichier excel que je suis en train de réaliser. Il s'agit une base de données pour les engagements. J'ai réalisé un graphique gratt sauf que je ne sais pas comment créer un bouton pour que mes barres prennent automatiquement la couleur du secteur concernés. D'après mes recherche j'ai réussi une macro mais je ne peux l'appliquer sur mon graphique car ce n'est pas le même type de graphique. Voici mon fichier en pièce jointe et le macro que je souhaiterai réaliser.

D'avance je vous remercie pour vos aides et réponses

Bery

Aucune solution ?

Bonjour,

A tester.

Cdlt.

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Long, j As Long

    Application.ScreenUpdating = False

    j = 40
    Me.ChartObjects("Graphique 1").Activate
    With ActiveChart.SeriesCollection(2)
        For i = 1 To .Points.Count
            .Points(i).Interior.Color = Me.Cells(j, 3).Interior.Color
            j = j + 1
        Next i
    End With

    j = 5
    Me.ChartObjects("Graphique 2").Activate
    With ActiveChart.SeriesCollection(2)
        For i = 1 To .Points.Count
            .Points(i).Interior.Color = Me.Cells(j, 3).Interior.Color
            j = j + 1
        Next i
    End With

End Sub

Super! C'est exactement ce que je voulais. Milles merci!

Merci beaucoup pour votre aide!

Cordialement,

Bery