XL 2013 Couleur d'écriture en fonction de valeurs

ifi77

XLDnaute Occasionnel
Bonjour @ tous

je ne comprends pas pourquoi cela ne fonctionne pas, le code me parait simple, pourriez vous m'apporter une aide,

For i = 1 To 7
Dim valeur As Integer
valeur = Controls("label" & 7 + i)
If valeur < 40 Then
Controls("label" & 7 + i).ForeColor = RGB(255, 0, 0)
ElseIf 40 <= valeur < 80 Then
Controls("label" & 7 + i).ForeColor = RGB(255, 127, 36)
ElseIf valeur >= 80 Then
Controls("label" & 7 + i).ForeColor = RGB(0, 255, 0)
End If

Next i

malgré la valeur de "valeur" il ne prend pas les valeurs des if

Merci @ tous
 

Hieu

XLDnaute Impliqué
Re : Couleur d'écriture en fonction de valeurs

Bonjour ifi77,

N'est-ce pas ça que tu cherches ??
For i = 1 To 7
valeur = Range("A" & 7 + i)
If valeur < 40 Then
Range("A" & 7 + i).Font.Color = RGB(255, 0, 0)
ElseIf valeur < 80 Then
Range("A" & 7 + i).Font.Color = RGB(255, 127, 36)
Else
Range("A" & 7 + i).Font.Color = RGB(0, 255, 0)
End If
Next i

++
Hieu.
 
Haut Bas