chessry
Messages postés3Date d'inscriptionjeudi 1 décembre 2011StatutMembreDernière intervention 5 mars 2014
-
1 déc. 2011 à 17:13
Bonjour,
J'ai un souci sur Excel. Je souhaite obtenir des barres de données pour expliciter un sondage. Je sais qu'il faut passer par une macro.
Mes valeurs sont comprises entre 1 et 24. Entre 1 et 9,99 (ou 10 non inclus...) je souhaite que la barre soit rouge. Entre 10 et 15, elle doit être jaune. Entre 15,01 et 24, elle doit être verte.
De plus, la taille de la barre doit dépendre de la valeur (minimale pour 1, maximale pour 24).
Pour l'instant, ma macro fonctionne pour une seule valeur. Je m'explique: si la valeur est "9", la taille et la couleur seront correctes. Si ensuite j'inscris 12, la barre représentant le "9" deviendra verte. En fait, c'est la dernière valeur inscrite dans la colonne qui détermine la couleur de l'ensemble des barres de la colonne.
Pouvez-vous m'aider?
Voici la macro utilisée:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.FormatConditions.AddDatabar
With Target.FormatConditions(1)
.MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=1
.MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=24
Select Case Target.Value
Case 0 To 9.99
.BarColor.Color = vbRed
Case 10 To 15
.BarColor.Color = vbYellow
Case 15.1 To 24
.BarColor.Color = vbGreen
End Select
End With
End Sub