[XL-2003] ajout de couleur à des cellules

[JulienLeno]

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 :

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

[jfontaine]

Bonjour,

Une astuce pour éviter le mal de crane des if imbriqués, utilise Select Case.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For j = 4 To 6
 
    Select Case Cells(2, j).Value
        case < 80 
               Cells(2, j).Interior.ColorIndex = 3
 
        case 80 to 100
               Cells(2, j).Interior.ColorIndex = 6
 
        case > 100
               Cells(2, j).Interior.ColorIndex = 4
 
    End Select
 
  Next

A noter que cette ligne devait poser problème

Code :

ElseIf 80 < Cells(2, j).Value < 100 Then

a écrire plutôt comme cela

Code :

ElseIf 80 < Cells(2, j).Value  and Cells(2, j).Value< 100 Then