Mise en Forme Conditionnelle des Textbox d'un Userform

[jofdm]

Bonjour à toutes et à tous,

J'aimerais savoir s'il est possible de faire une MFC des textbox d'un userform (par exemple écrire en vert ou sur un fond vert lorsque c'est OK, rouge si ça ne l'est pas) et si oui, comment.
Merci d'avance pour votre aide
@+

 

[Guest]

Re : Mise en Forme Conditionnelle des Textbox d'un Userform

bonjour Jofdm,

Un exemple simple qui colorie le fond du textbox en rouge ou vert selon que la valeur entrée est = 10 ou non:

Private Sub TextBox1_Change()
    If Val(TextBox1.Text) = 10 Then
        TextBox1.BackColor = vbGreen
    Else
        TextBox1.BackColor = vbRed
    End If
End Sub

Pour la couleur d'écriture utiliser la propriété ForeColore: TextBox1.ForeColor = vbGreen

Bonne programation et bonne journée

 

[Pierrot93]

Re : Mise en Forme Conditionnelle des Textbox d'un Userform

Bonjour jofdm, Hasco

une autre solution, en utilisant l'événement "exit" du textbox :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = IIf(TextBox1.Value = "OK", vbGreen, vbRed)
End Sub

bonne journée
@+

 

[jofdm]

Re : Mise en Forme Conditionnelle des Textbox d'un Userform

Merci beaucoup