Comment colorer un graphique en fonction de la couleur des cellules dans Excel ?

Normalement, lorsque vous créez un graphique, la couleur des barres de colonnes est celle par défaut. Si vous devez appliquer une couleur de remplissage sur chaque barre en fonction des couleurs des cellules comme le montre la capture d'écran suivante, comment pourriez-vous résoudre cela dans Excel ?

Colorer le graphique avec une ou plusieurs séries de données en fonction de la couleur des cellules à l'aide de codes VBA

Colorer le graphique avec une ou plusieurs séries de données en fonction de la couleur des cellules grâce à une fonctionnalité étonnante

Colorer le graphique avec une ou plusieurs séries de données en fonction de la couleur des cellules à l'aide de codes VBA

Colorer le graphique avec une série de données en fonction de la couleur des cellules

Avec le code VBA suivant, vous pouvez rapidement modifier la couleur du graphique qui contient une série de données en fonction de la couleur des valeurs des cellules d'origine, veuillez procéder comme suit :

1. Tout d'abord, créez un graphique en barres ou en colonnes comme le montre la capture d'écran suivante (sélectionnez les données et cliquez sur Insertion > Insérer un graphique en colonnes ou en barres) :

2. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Colorer les barres du graphique avec une série de données en fonction de la couleur des cellules :

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

Remarque : Dans le code ci-dessus, Graphique 1 est le nom du graphique que vous souhaitez utiliser, veuillez le changer pour le vôtre.

4. Après avoir collé le code ci-dessus, appuyez sur la touche F5 pour exécuter ce code, et la couleur des barres du graphique a été modifiée en fonction de la couleur des cellules d'origine, voir la capture d'écran :

Colorer le graphique avec plusieurs séries de données en fonction de la couleur des cellules

Si votre graphique comporte plusieurs séries de données, veuillez appliquer le code VBA suivant :

1. Veuillez créer le graphique en barres ou en colonnes qui contient plusieurs séries de données comme le montre la capture d'écran suivante :

2. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Colorer les barres du graphique avec plusieurs séries de données en fonction de la couleur des cellules :

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. Appuyez ensuite sur la touche F5 pour exécuter ce code, les barres du graphique sont immédiatement remplies avec la couleur des cellules d'origine, voir la capture d'écran :

Remarques :

1. Dans le code ci-dessus, Graphique 1 est le nom du graphique que vous souhaitez utiliser, veuillez le changer pour le vôtre.

2. Ce code peut également être appliqué à un graphique en ligne.

Colorer le graphique avec une ou plusieurs séries de données en fonction de la couleur des cellules grâce à une fonctionnalité étonnante

En utilisant les codes ci-dessus, les couleurs du graphique ne correspondront pas toujours à la couleur des cellules. Pour résoudre ce problème, voici une solution pratique - Modifier la couleur du graphique en fonction de la couleur des cellules de Kutools pour Excel. Avec cette fonctionnalité pratique, vous pouvez colorer le graphique en fonction de la couleur des cellules rapidement et facilement.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Tout d'abord, insérez le graphique que vous souhaitez utiliser, puis sélectionnez le graphique, puis cliquez sur Kutools > Graphiques > Outils de graphique > Modifier la couleur du graphique en fonction de la couleur des cellules, voir la capture d'écran :

2. Ensuite, une boîte de dialogue s'affiche, veuillez cliquer sur le bouton OK.

3. Maintenant, le graphique que vous avez sélectionné a été coloré en fonction des couleurs des cellules comme le montrent les captures d'écran ci-dessous :

Colorer le graphique avec une série de données en fonction de la couleur des cellules

Colorer le graphique avec plusieurs séries de données en fonction de la couleur des cellules

Téléchargez et essayez gratuitement Kutools pour Excel dès maintenant !

Plus d'articles relatifs aux graphiques :