Discussion :

[young 25]

bonsoir à tous;

ci joint un fichier avec une macro qui doit modifier la couleur d'un graphique selon certains conditions.
or la couleur est la même quelque soit la condition .

Si vous pouvez l'aider merci d'avance
A+

[Daniel.C]

Bonsoir,
Si tu expliquais ce que tu veux faire au lieu de mettre une macro qui apparemment ne fonctionne pas ?

[young 25]

bonsoir,

Je souhaite modifier la couleur du graphique selon une valeur qui est comprise entre 0 et 100

si la valeur est comprise entre 0 et 50 une couleur le rouge
si la valeur est comprise entre 51 et 80 une couleur l'orange
si la valeur est comprise entre 81 et 100 une couleur le vert

et voila
désolé mais je pensais que c'était clai avec le fichier et le début du code

A°

[Daniel.C]

Juste en survolant le code, si "e11" est une référence de cellule, tu dois écrire : [E11] ou Range("E11").
Daniel

[SfJ5Rpw8]

... début du code

..

on pourrais le voir ce code ?


-------------------------------------
Je n'ouvre pas les pièces jointes

[jfontaine]

Bonjour,

Une méthode en utilisant l’évènement Calculate de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Calculate()
 
Dim BytColor As Byte
 
Select Case Range("E11").Value
    Case 0 To 50
        BytColor = 3
    Case 51 To 80
        BytColor = 45
    Case 81 to 100
        BytColor = 4
End Select
 
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Interior.ColorIndex = BytColor
 
End Sub

[Daniel.C]

Je ne sais pas colorier un point particulier d'une série d'un graphique radar. J'ai fait quatre séries. Pour chacune, j'ai cherché la seconde plus grande valeur avec la formule (en N5) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GRANDE.VALEUR(E5:H5;2)

La macro suivante colorie les séries :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
With ActiveSheet.ChartObjects("Graphique 1").Chart
    For i = 1 To .SeriesCollection.Count
        If [N4].Offset(i) < 51 Then
            .SeriesCollection(i).Interior.ColorIndex = 3
        ElseIf [N4].Offset(i) > 80 Then
            .SeriesCollection(i).Interior.ColorIndex = 43
        Else
            .SeriesCollection(i).Interior.ColorIndex = 44
        End If
    Next i
End With
End Sub

Regarde le classeur joint.

[young 25]

hello;

Merci à vous tous de votre aide cela fonctionne

bonne soirée et merci