changement de couleur textbox selon condition

[gildas lechat]

Bonjour le forum,

Je voudrai effectuer en changement de couleur de Textbox
suivant les critères ci dessous:

Textbox vert si résultat compris entre (ou égal) label 1 et label 2

Textbox rouge si résultat est strictement > à label 2 ou strictement <à label 1

Pouvez vous m'aider?
Merci d'avance
Gildas

 

[Papou-net]

Re : changement de couleur textbox selon condition

Bonjour Gildas,

Code à insérer dans le TextBox.Change :

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then TextBox1.BackColor = &H80000005: Exit Sub
Lab1 = CInt(Label1.Caption)
Lab2 = CInt(Label2.Caption)
Select Case CDbl(TextBox1.Value)
  Case Lab1 To Lab2
    TextBox1.BackColor = vbGreen
  Case Not numeric
  Case Is < Lab1, Is > Lab2
    TextBox1.BackColor = vbRed
End Select
End Sub

Espérant avoir répondu.

Cordialement.

 

[gildas lechat]

Re : changement de couleur textbox selon condition

Bonjour,

Ca fonctionne, merci.
Juste une chose, lorsque l'on emet un nombre décimal (12.15...), j'ai une erreur du type:
CDbl(TextBox1.Value)="imcompatibilité de type"

sur la ligne suivante :

Select Case CDbl(TextBox1.Value)

Si vous avez la réponse à mon prb merci
Gildas

 

[youky(BJ)]

Re : changement de couleur textbox selon condition

Bonjour gildas lechat,
Bonjou Papou-net,
Voici une exemple de code pour obliger un textbox numéric et on remplace le point par la virgule.
Bruno

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 Select Case KeyAscii
    Case 46                 'Change le point en virgule
        KeyAscii = 44
    Case 44, 48 To 57       'Autorise les touches 0 à 9
    Case Else
        KeyAscii = 0
    End Select
End Sub

 

[gildas lechat]

Re : changement de couleur textbox selon condition

Bonjour youky(BJ) ,

OK merci beaucoup
Gildas