Appliquer une macro à un graphique

Bonjour,

Voilà j'ai la macro suivante,

Sub colorisation()

Dim graphe As ChartObject

Dim tb()

Application.ScreenUpdating = False

For Each graphe In ActiveSheet.ChartObjects

With graphe.Chart.SeriesCollection(1)

.Interior.Color = RGB(0, 255, 0)

tb = .Values

For i = 1 To UBound(tb)

If tb(i) > 0.037 Then

.Points(i).Interior.ColorIndex = 3

End If

Next i

End With

Next graphe

Application.ScreenUpdating = True

End Sub

Sur mon fichier j'ai quatre graphiques sur le même onglet et je voudrais appliquer cette macro à un graphique en particulier.

Est ce possible de faire ceci ? svp

Merci d'avance

bonjour

un graphique se crée au clavier/souris, avec tous les détails voulus (y compris les couleurs)

ensuite on n'y touche plus

les données évoluent, le graphique reste

Bonjour,

Ton graphique est définit par un nom.

Dans la procédure ci-dessous, modifie Nom à définir par le nom de ton graphique.

A te relire.

Cdlt.

Sub colorisation()
Dim cht As Chart
Dim sr As Series
Dim tbl As Variant
Dim i As Long

    Application.ScreenUpdating = False
    Set cht = ActiveSheet.ChartObjects("Nom à définir").Chart
    Set sr = cht.SeriesCollection(1)
    With sr
        .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        tbl = .Values
    End With
    For i = 1 To UBound(tbl)
        If tbl(i) > 0.037 Then sr.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
    Next i

End Sub

Bonjour,

Merci de votre réponse.

Cependant cela ne fonctionne pas il me met paramètre incorrecte. Le nom du graphique correspond à son titre ?

Merci

slts

Re,

Chaque graphique est nommé.

Ci-dessous, une image pour te montrer le nom du graphique sélectionné.

Bonjour,

Merci ça fonctionne