code de couleur

Version imprimable

13/08/2012, 13h35
panda78

code de couleur

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
13/08/2012, 13h52
Daniel.C

Bonjour,

Citation:

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.
13/08/2012, 14h02
panda78

2 pièce(s) jointe(s)

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

Bonjour,

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

Code:

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

13/08/2012, 16h22
panda78

Merci beaucoup! :ccool:

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

Code:

Me.TextBox1.Value * 255

possède une valeur...

Code:

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

Je sais d'ou vient le problème, en fait le resultat est donné dans le TxtResult avec l'unité (exemple: 58 dB) voilà pourquoi VBA m'envoi un message d'erreur (incompatibilité de type) lors de la compilation.

dans ce cas comment ne selectionner que la partie numérique dans TxtResult?

A la place de

Code:

userform1.Txtresult.value

j'ai mis

Code:

Round(LpGlobalvoisin, 2)

ce qui me permet d'avoir uniquement la valeur numérique du résultat. Seulement maintenant le result est toujours donné en vert quelque soit la valeur du résultat:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub TxtResult_Change() TxtResult.AutoSize = True Dim ValeurMax As Integer 'Dim var As Single ValeurMax = 120 With UserForm1.TxtResult var = Round(LpGlobalvoisin, 2) * 255 If UserForm1.TxtResult.Value <> "" Then UserForm1.TxtResult.ForeColor = RGB(Round(LpGlobalvoisin, 2) * 255 / ValeurMax, _ (255 - Round(LpGlobalvoisin, 2) * 255 / ValeurMax), 0) End If End With End Sub

13/08/2012, 18h14
Daniel.C

Citation:

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

Tu peux l'enlever; elle m'a juste servi pour faire un test. Quelles sont les valeurs respectives de "LpGlobalvoisin" et de "TxtResult" ?
13/08/2012, 21h01
panda78

ce sont les mêmes, dans le module1 j'ai mis :

Code:

UserForm1.TxtResult.Value = Round(LpGlobalvoisin, 2) & " dB(A)"

Cordialement.

J'ai testé ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub txtResult_Change()
LpGlobalvoisin = 120
Dim ValeurMax As Integer
    'Dim var As Single
    ValeurMax = 120
    With UserForm1.txtResult
        If .Value <> "" Then
            .ForeColor = RGB(Round(LpGlobalvoisin, 2) * 255 / ValeurMax, _
            (255 - Round(LpGlobalvoisin, 2) * 255 / ValeurMax), 0)
       End If
    End With
 Me.txtResult = Round(LpGlobalvoisin, 2) & "  dB(A)"
End Sub

j'ai seulement ajouté la ligne 2 et j'obtiens du rouge ?

en fait ça marche si j'écris :

Code:

UserForm1.TxtResult.Value = Round(LpGlobalvoisin, 2)

au lieu de :

Code:

UserForm1.TxtResult.Value = Round(LpGlobalvoisin, 2) & " dB(A)"

et donc:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub txtResult_Change() TxtResult.AutoSize = True 'LpGlobalvoisin = 120 Dim ValeurMax As Integer 'Dim var As Single ValeurMax = 100 With UserForm1.TxtResult If .Value <> "" Then .ForeColor = RGB(TxtResult.Value * 255 / ValeurMax, _ (255 - TxtResult.Value * 255 / ValeurMax), 30) End If End With End Sub
comment faire pour que ça fonctionne tout en gardant l'unité (dB(A)) dans le textbox (TxtResult)

J'aimerai aussi mettre ce résultat en gras pour le valoriser

ça marche ! en mettant votre code dans le module1 juste après le résultat. Merci!

comment faire apparaitre ce résultat en gras dans txtResult pour le mettre en évidence. MERCI

14/08/2012, 00h34
panda78

c'est bon j'ai trouvé! fenêtre propriété et font ;)