Bonjour à vous,

Voilà j'ai crée un code qui me permet de faire trois calcul qui vont s'afficher dans trois cellules. Jusque là pas de problème. Pour avoir un aspect un peu plus sympa je voudrais bien pouvoir afficher ces cellules en couleur selon les valeurs obtenus. Mettre en rouge quand la valeur est < à 80 en jaune quand 80<valeur<100 et en vert pour >100.

j'ai fais quelquechose qui m'affichent bien des couleurs mais çà ne fonctionne pas pour le vert. Il m'affiche toujours du jaune même quand il est > à 100 alors que pour le rouge çà marche bien. Auriez vous une idée d'ou cela peut venir?

Je met le bout de code sur le remplissage en couleur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
For j = 4 To 6
 
    If Cells(2, j).Value < 80 Then
    Cells(2, j).Interior.ColorIndex = 3
 
    ElseIf 80 < Cells(2, j).Value < 100 Then
    Cells(2, j).Interior.ColorIndex = 6
 
    ElseIf 100 < Cells(2, j).Value Then
    Cells(2, j).Interior.ColorIndex = 4
 
    End If
 
  Next