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