Problème d'intervalle dans Excel

Version imprimable

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:

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

Code:

If (-61 < Cells(I, 11).Value < -100000) Then

si cells= -80!
Code:

1 2 3 if (-60 < -80 < -10000) then ' = faux if (-60 < -15000 < -10000) then ' = faux if (-60 < -59 < -10000) then ' = faux
donne moi un exemple ou ça marche!

21/01/2014, 16h35
MarcelG

Bonjour Antim, Bonjour le Forum,

Bienvenu.

Plusieur remarques

- Pour une plus grande facilité de lecture, poste ton code avec les balises # adéquates
- Tes conditions doivent se suivre plutôt que d'être imbriquées
- La méthode

Code:

Select Case

me semble plus adéquate

Bonjour Robert,

Si je peux me permettre, l'odre des éléments est inversé.
En effet
-10000 < -80 < -60

Non?
21/01/2014, 16h40
Invité

bonjour,MarcelG

problème un a y il cas tout en

select case

Salut,

Pardon?

Pour en revenir à ma proposition (à adapter bien sûr)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Public Sub essai_couleur()
 
Dim i As Byte, lacouleur As Byte
 
For i = 1 To 25
    With Worksheets(1).Cells(i, 11)
        Select Case .Value
            Case Is <= -100000
                lacouleur = 9
            Case -99999 To -61
                lacouleur = 19
            Case -60 To 0
                lacouleur = 29
            Case Else
                lacouleur = 53
        End Select
        .Interior.ColorIndex = lacouleur
    End With
Next i
 
End Sub

21/01/2014, 16h50
Invité

Oui!

Citation:

Envoyé par MarcelG

Salut,

Pardon?

Pour en revenir à ma proposition (à adapter bien sûr)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Public Sub essai_couleur()
 
Dim i As Byte, lacouleur As Byte
 
For i = 1 To 25
    With Worksheets(1).Cells(i, 11)
        Select Case .Value
            Case Is <= -100000
                lacouleur = 9
            Case -99999 To -61
                lacouleur = 19
            Case -60 To 0
                lacouleur = 29
            Case Else
                lacouleur = 53
        End Select
        .Interior.ColorIndex = lacouleur
    End With
Next i
 
End Sub

Bravo ça fonctionne parfaitement :)
Merci beaucoup pour l'aide et le conseil (Select.case), je tacherai de l'utiliser d'avantage à l'avenir !!

Encore bravo et bonne journée