Discussion :

[xxmedxx]

Bonjour,
Alors j'ai des données dans les cellule B15:BC15 (moyenne) liées à un graphique
Une valeur min dans I5 et une valeur max dans J5
Est ce que ça sera possible de changer le couleur d'un graphique si la somme de B15:BC15 dépasse les limites en I5 et J5
par ex : B15 = 1000, I5 = 900 et J5 = 1100 on aura valeur en vert sur graphique
B15 = 600, I5 = 900 et J5 = 1100 on aura valeur en rouge sur graphique
Merci

[Menhir]

De quel type de graphique s'agit-il ?

[xxmedxx]

graphique a courbes ou bien a barre

[cb_60]

Bonjour
Tu souhaite quelque chose comme ça?

[Menhir]

graphique a courbes ou bien a barre

Pour ce qui est des barres, je pensais à une solution comparable à celle de cb_60 ( ) avec une petite variante.


Par contre, pour une courbe, je ne pense pas que ce soit possible.

[xxmedxx]

merci pour vos réponse la solution de menhir me parait très cool mais comment le faire et si je peux joindre mon fichier pour m'aider

[QuestVba]

Voici un truc trouvé sur Google est ton ami :

Je te mets le fichier en PJ réalisé par ROGER2327.

[ARTURO83]

Bonjour,

Excusez-moi de déterrer le sujet, mais j'avais préparé une autre proposition et ayant dû m'absenter précipitemment et pour plusieurs jours je n'ai pu la déposer sur le forum. Bien que le sujet soit clos, je pense que cela peut donner des idées pour des sujets similaires.
Je propose 3 graphiques différents avec leurs avantages et inconvénients. Dans les 3 cas, tout ce qui en dehors des seuils haut et bas est en rouge et le reste en vert (à adapter suivant les besoins).
Les 3 graphiques proposés:
-Graphique à Bulles
-Graphique en nuage de points
-Graphique en courbes
Pièce jointe 456393
Pièce jointe 456397
Pièce jointe 456398

Le code associé pour la gestion des 3 graphiques

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
        If Not Intersect(Target, Range("I5:J5")) Is Nothing Then
        Plage = ("B17:BC17")
        x = 1
 
        'Application sur graphique à bulles **********************
        ActiveSheet.ChartObjects("Graphique 1").Activate
        For Each cell In Range(Plage)
            With ActiveChart.SeriesCollection(3).Points(x).Interior
                If cell.Value <= [I5] Or cell.Value >= [J5] Then
                    .Color = RGB(255, 0, 0)
                ElseIf cell.Value > [I5] Then
                    .Color = RGB(0, 255, 0)
                End If
                x = x + 1
            End With
        Next
 
        'Application sur les marqueurs d'un graphique à courbes ********************
        x = 1
        ActiveSheet.ChartObjects("Graphique 2").Activate
        For Each cell In Range(Plage)
            With ActiveChart.SeriesCollection(3).Points(x)
                If cell.Value <= [I5] Or cell.Value >= [J5] Then
                    .MarkerBackgroundColor = RGB(255, 0, 0)
                ElseIf cell.Value > [I5] Then
                    .MarkerBackgroundColor = RGB(0, 255, 0)
                End If
                x = x + 1
            End With
        Next
 
        'Adapter la taille des marqueurs d'un graphique à courbes proportionnellement à leurs valeurs *************
        x = 1
        ActiveSheet.ChartObjects("Graphique 2").Activate
        For Each cell In Range(Plage)
            With ActiveChart.SeriesCollection(3).Points(x)
                .MarkerSize = 8 * Cells(17, x + 1) * 0.002 'taille du marqueur = taille de base du marqueur(8) * valeur du point * par un coeff
                x = x + 1
            End With
        Next
 
        'Application sur les marqueurs d'un graphique en nuage de points ********************
        x = 1
        ActiveSheet.ChartObjects("Graphique 3").Activate
        For Each cell In Range(Plage)
            With ActiveChart.SeriesCollection(3).Points(x)
                If cell.Value <= [I5] Or cell.Value >= [J5] Then
                    .MarkerBackgroundColor = RGB(255, 0, 0)
                ElseIf cell.Value > [I5] Then
                    .MarkerBackgroundColor = RGB(0, 255, 0)
                End If
                x = x + 1
            End With
        Next
 
        'Adapter la taille des marqueurs d'un graphique en nuage de points proportionnellement à leurs valeurs *************
        x = 1
        ActiveSheet.ChartObjects("Graphique 3").Activate
        For Each cell In Range(Plage)
            With ActiveChart.SeriesCollection(3).Points(x)
                .MarkerSize = 8 * Cells(17, x + 1) * 0.002 'taille du marqueur = taille de base du marqueur(8) * valeur du point * par un coeff
                x = x + 1
            End With
        Next
    End If
End Sub

et enfin le fichier, modifiez les seuils hauts et bas en I5 et J5 pour obtenir la mise à jour des graphiques.
Pièce jointe 456401

Cdlt