Nouvelle discussion, décidément ...

Voici mon code :

En fonction de la valeur prise (nombre négatif j'attribue un code couleur)

Voici mon code :

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
17
18
19
Sub Couleur_ordre123()
 
For I = 1 To 25
 
    If (-30 < Cells(I, 11).Value < 0) Then
    Cells(I, 11).Interior.ColorIndex = 9
 
    If (-31 < Cells(I, 11).Value < -60) Then
    Cells(I, 11).Interior.ColorIndex = 9
 
    If (-61 < Cells(I, 11).Value < -100000) Then
    Cells(I, 11).Interior.ColorIndex = 9
    End If
    End If
    End If
 
    Next
 
End Sub
Le problème est que seul mon premier intervalle fonctionne et je ne comprend pas très bien pourquoi ! Est ce un problème d'expression, qui bugg lorsque l'intervalle n'est plus fonction de "0" ???

Je vous remercie par avance