Discussion :

[Seuche]

Bonsoir
j'ai une petite panne
je m'explique:
Dans un label j'ai un nombre par exemple 1000 qui correspond a des kms, dans un TextBox j'ai des kms qui sont comptabiliser dans un tableau
je voudrais que le total de ce textBox change de couleur des que mes kms sont égal ou supérieur a mon label
merci de votre aide espérant trouver une réponse.

Amicalement

[Theze]

Bonsoir,

sur l'évènement Change du TextBox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub TextBox1_Change()
 
    If TextBox1.Text >= Label1.Caption Then
 
        TextBox1.BackColor = &HFF& 'rouge
 
    Else
 
        TextBox1.BackColor = &HFFFFFF 'blanc
 
    End If
 
End Sub

Hervé.

[casefayere]

Bonsoir,

autre exemple avec un bouton de commande, tout reste à savoir comment tu gères tes controles :

Code :

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

1
2
3
4
5
TextBox1.ForeColor = RGB(64, 0, 0)
If TextBox1.Text = "" Then TextBox1.Text = "0"
If TextBox1.Text >= Label1.Caption Then
  TextBox1.ForeColor = RGB(255, 0, 0)
End If

bonne soirée

[Seuche]

Bonsoir Theze,
merci pour cette reponse mais ce n'est pas le TextBox qui doit changer de couleur mais les Chiffres Kms Exemple en dessous de 1000 kms Couleur Rouge au dessus ou egal a 1000 kms de couleur verte par exemple

merci

[patricktoulon]

bonsoir

Code :

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

1
2
3
Private Sub TextBox1_Change()
     TextBox1.foreColor =iif(label1.caption<textbox1.text, vbred,vbwhite)
 End Sub

au plaisir

[Seuche]

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
18
19
20
Private Sub UserForm_Initialize()
    Dim tablo() As String
    Dim Temps, tx As Long
    Me.Caption = "      " & Feuil16.[A5] & "     " & Feuil16.[B5] & "    :    " & Feuil16.[C5]
    TextBox18.Value = Format(Date, "ddd dd mmmm yyyy")
    TextBox19.Value = Date
    If calcul("B", 1) > 0 Then
    TextBox5 = Format(calcul("B", 1), "# ##0.000")
    
    TextBox9 = Format(calcul("C", 1), "00")
    TextBox10 = Format(calcul("D", 1), "00")
    TextBox14 = Format(calcul("E", 1), "00")
    TextBox16 = Format(calcul("F", 1), "00")
    TextBox6 = Format(Val(TextBox9) + Val(TextBox10) + Val(TextBox14) + Val(TextBox16), "00")
    End If
    TextBox7 = calcul("G", 2)
      TextBox13.Value = (Feuil13.[G1] / 12) - Feuil13.Cells(ActiveSheet.[Z1] + 2, 2).Value
tx = (Feuil13.[G1] / 12) - Feuil13.Cells(ActiveSheet.[Z1] + 2, 2).Value
    TextBox13.Value = Format(Int(TextBox13.Value * 1000) / 1000, "0.000")
    If TextBox13.Value < 0 Then

Une partie du code je voudrais qu'il soit sous la ligne

Code :

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

TextBox5 = Format(calcul("B", 1), "# ##0.000")

c'est ce textbox de concerner

merci