Graphique avec indicateur visuel si > limite

[Achil]

Bonjour à tous,

J'ai besoin comme d'habitude de votre aide !

J'ai un graphe avec des seuils limites et je souhaite mettre en vert si inférieur au seuil fixé et en rouge si ça dépasse.

Ci joint un exple

MErci d'avance 😱😱😱

 

[klin89]

Re : Graphique avec indicateur visuel si > limite

Bonsoir Achil,
Bonsoir le forum,

Je n'ai pas l'habitude de manipuler les graphiques par VBA mais essaie ceci :

Macro à exécuter sur le graphique existant et la série1 :

Sub Mise_en_Forme_selon_un_Seuil()
'Le seuil est fixé à 4000
Dim i As Long
Sheets("Graph1").Activate
With ActiveChart.SeriesCollection(1)
  For i = 1 To .Points.Count
    If ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = False Then test = 1
    ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = True
    rep = ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text
    If CDbl(rep) > 4000 Then
      'suivant le résultat, change la couleur
      ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
    Else
      ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 43
    End If
    'remets dans l'état initial le graphique
    If test = 1 Then ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = False
  Next
End With
End Sub

J'ai trouvé cet exemple chez nos amis d'excelabo.net : pas poussé plus loin ma recherche.

Klin89

 

[Misange]

Re : Graphique avec indicateur visuel si > limite

Bonjour
les liens originaux sont ici 😉
Ce lien n'existe plus
et là
Ce lien n'existe plus
avec un classeur contenant divers superbes exemples.

Sinon ci-joint une solution sans macro avec juste une réorganisation des données