Discussion :

[RobinN]

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.

[Gado2600]

Bonjour,

Utilises plutôt un select case.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
select case x
    case 1 to 3
 
end select

Cordialement

[Djohn92]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Gado2600]

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.

[RobinN]

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