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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.