Histogramme empilé avec couleurs (VBA), erreur : série transparente

Bonjour à tous,

J'ai grâce à ce forum obtenu que mon histogramme empilé prenne automatiquement les couleurs des cellules contenant les valeurs. Ca marchait bien jusque là. Depuis ce matin, une des séries de l'histogramme est transparente. Quelqu'un peut m'aider?

Merci beaucoup d'avance

Bonsoir,

Les données de "Horizon" font parties de la 5ème série et non de la 2ème.

donc, cette partie de code n'est pas bonne:

            For j = 1 To serie.Points.Count
                If i = 1 Then
                    Set coul = ws.Cells(dataRange.Row + j - 1, 4) 'Colonne D
                ElseIf i = 2 Then
                    Set coul = ws.Cells(dataRange.Row + j - 1, 5) 'Colonne E
                End If
                serie.Points(j).Format.Fill.ForeColor.RGB = coul.Interior.Color
            Next j

Je ferai plutôt ceci:

        For i = 1 To .SeriesCollection.Count
            Set serie = .SeriesCollection(i)
            For j = 1 To serie.Points.Count
                Set coul = ws.Cells(dataRange.Row + j - 1, i + 3) 'Colonne D à H
                serie.Points(j).Format.Fill.ForeColor.RGB = coul.Interior.Color
            Next j
        Next i

Maintenant par manque de temps, je n'ai pas testé, mais vous devriez repartir sur des bases saines en repartant d'un nouveau graphique.

Cdlt

Merci Arturo83!!

Ca fonctionne! Ma deuxième série retrouve de la couleur^^

Bonne soirée