Problème VBA code couleur avec If

Version imprimable

Bonjour à tous,

Je suis en train de réaliser un code couleur pour mon fichier, or je n'arrive pas à faire reconnaître mes 4 couleurs distinctes... Voici mon code VBA, du moins, une partie.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    If oSheet.Cells(lLine, 20) < 50000 Then
        lColor = RGB(0, 0, 96)
    Else
    If 50001 < oSheet.Cells(lLine, 20) < 99999 Then
        lColor = RGB(0, 0, 255)
    'Else ..  C'est cette couleur qui n'apparaît pas sur ce fichier
    If 100000 < oSheet.Cells(lLine, 20) < 149999 Then
        lColor = RGB(0, 128, 224)
    'Else
    If oSheet.Cells(lLine, 20) > 150000 Then
        lColor = RGB(0, 224, 255)
    'Else
    End If
    End If
    End If
    End If

Avec ce code, c'est la 2ème couleur qui n'est pas affichée par Excel.

22/05/2015, 11h12
Gado2600
Bonjour,

Utilises plutôt un select case.

Pour les encadrements, je crois que c'est comme ceci :
Code:

1 2 3 4 select case x case 1 to 3 end select
Cordialement
22/05/2015, 11h41
Djohn92

j'aime pas trop la forme a < b < c

Code:

debug.print 5<12<2

Me renvoie "VRAI". Sois tu fais a < b AND b < c
Sois tu fais des CASES.

Par contre, pas de certitudes sur le sujet.
22/05/2015, 12h17
Gado2600

Citation:

debug.print 5<12<2

Je viens de l'essayer. C'est vrai que c'est un peu bizarre mais bon à savoir.
En fat, il agit comme un OU.
Du coup, cela explique le bug qu'il rencontre.
22/05/2015, 13h44
RobinN

Merci, je suis bête de ne pas y avoir pensé plus tôt ...