Couleur / Valeur %

[Williams]

Bonjour,

Quelle pourrait etres la macro à utiliser pour:

Si la valeur dans les cases entre A1 et B10 est comprise entre 80% et 85% dans une couleur.
Si la valeur dans les cases entre A1 et B10 est comprise entre 85% et 90% une autre couleur......Etc....jusqu'a 100%


Merci pour votre aide.

 

[Hervé]

Bonjour

Un truc dans ce style peut être :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("a1:b10")
Select Case c.Text
Case Is < 80: c.Interior.ColorIndex = 3
Case Is < 81, Is < 85: c.Interior.ColorIndex = 4
Case Is < 86, Is < 90: c.Interior.ColorIndex = 5
Case Is < 91, Is < 95: c.Interior.ColorIndex = 6
Case Is < 96, Is = 100: c.Interior.ColorIndex = 7
Case Else: c.Interior.ColorIndex = xlColorIndexNone
End Select
Next
End Sub

Salut
Hervé

 

[Williams]

Bonjour,

Oui effectivement j'avais déjà testé ce que vous me donner, mais cela ne fonctionne pas avec des " % ". Ou alors il doit manqué un paramètre......

Merci