Discussion :

[panda78]

bonjour, j'ai un code qui me fait tout un tas de calculs sous VBA et qui m'envoi le resultat dans une textbox. j'aimerai colorier cete textbox en foncion du resutat donné. par exemple si le resultat depasse la valeur numérique de 85 la textbox devient rouge, entre 75 et 85 orange etc...
Si possible une coloration graduée comme pour les longueurs d'onde serait appréciée.
Merci

[Daniel.C]

Bonjour,

Si possible une coloration graduée comme pour les longueurs d'onde serait appréciée.

Est-ce que tu peux détailler; je suis totalement ignare en la matière.

[panda78]

un schéma ou deux vallent mieux que mille discours :-)

[Daniel.C]

Bonjour,

Tu peux utiliser la macro évènementielle suivante. Il faut seulement fixer la valeur maxi, la valeur mini étant 0.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Change()
    Dim ValeurMax
    ValeurMax = 1000
    With Me.TextBox1
        Var = Me.TextBox1.Value * 255
        If .Text <> "" Then
            Me.TextBox1.ForeColor = RGB(Me.TextBox1.Value * 255 / ValeurMax, _
            (255 - Me.TextBox1.Value * 255 / ValeurMax), 0)
        End If
    End With
End Sub

[panda78]

Merci beaucoup!

[panda78]

je me suis avancé trop vite, a quoi sert la variable var? elle est marqué vide lors du débogage pourtant

Code :

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

Me.TextBox1.Value * 255

possède une valeur...

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
Private Sub TxtResult_Change()
TxtResult.AutoSize = True
 
    Dim ValeurMax As Integer
    Dim var As Single
    ValeurMax = 130
    With UserForm1.TxtResult.Value
        var = UserForm1.TxtResult.Value * 255
        If UserForm1.TxtResult.Value <> "" Then
            UserForm1.TxtResult.ForeColor = RGB(UserForm1.TxtResult.Value * 255 / ValeurMax, _
            ((255 - UserForm1.TxtResult.Value * 255) / ValeurMax), 0)
        End If
    End With
 
'TxtResult.ForeColor = RGB(255, 0, 0)
 
End Sub