Discussion :

[AntMi]

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

[Invité]

Code :

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

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

si cells= -80!

Code :

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

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!

[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 :

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

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?

[Invité]

problème un a y il cas tout en

[MarcelG]

Salut,

Pardon?

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

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
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

[Invité]

Oui!

[AntMi]

Salut,

Pardon?

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

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
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