Changement couleur barre progression selon résultat
Bonjour,
J'ai réussi à installer une barre de progression dans ma cellule de tableau excel via les mises en formes conditionnelles.
J'ai donc bien une barre qui progresse selon que mon résultat est de 40 sur 100 ou de 75 sur 100, etc...
Mais j'aimerais en plus que cette barre soit en rouge quand mon résultat évolue entre 0 et 50. Puis qu'elle devienne verte quand le résultat monte entre 51 et 100.
Comment faire?
Merci à celui/celle qui pourra m'aider et bonne journée à tous,
J'ai réussi à installer une barre de progression dans ma cellule de tableau excel via les mises en formes conditionnelles.
J'ai donc bien une barre qui progresse selon que mon résultat est de 40 sur 100 ou de 75 sur 100, etc...
Mais j'aimerais en plus que cette barre soit en rouge quand mon résultat évolue entre 0 et 50. Puis qu'elle devienne verte quand le résultat monte entre 51 et 100.
Comment faire?
Merci à celui/celle qui pourra m'aider et bonne journée à tous,
2 réponses
-
ContributeurBonjour
je ne pense pas que ce soit possible (-mais je ne sais pas tout); Tout ce que l'on peut imaginer, c'est une barre de couleur "neutre" avec une MFC complémentaire avec le fond de cellule de base en rouge qui passe en vert si valeur <50, (ou une MFC pour vert et une pour rouge)mais ça ne permettra que de repérer les cellules en dessous et au dessus de la moyenne sans changer la couleur de la barre.
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci! -
Bonjour,
c'est possible mais en VBA, exemple pour traiter la plage A2:A50
clic droit sur l'onglet de ta feuille/Visualiser le code, colle ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A50")) Is Nothing Then
Target.FormatConditions.AddDatabar
With Target.FormatConditions(1)
.MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
.MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=100
Select Case Target.Value
Case 0 To 50
.BarColor.Color = vbRed
Case 51 To 100
.BarColor.Color = vbGreen
End Select
End With
End If
End Sub
