XL 2013 Couleur d'écriture en fonction de valeurs

[ifi77]

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]

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.

 

[ifi77]

Re : Couleur d'écriture en fonction de valeurs

Bonjour Hieu, je ne veux pas utiliser les valeurs de cellules mais celle apparaissant dans les LABEL du USERFORM.

Merci

@+

 

[Hieu]

Re : Couleur d'écriture en fonction de valeurs

Ah ok. Peut-être avec un fichier pour se rendre compte ?

Hieu.

 

[eriiic]

Re : Couleur d'écriture en fonction de valeurs

Bonjour,

Peut-être :

valeur = cint(Controls("label" & 7 + i).caption)

eric