J jofdm XLDnaute Occasionnel 21 Avril 2008 #1 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 @+
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 @+
G Guest Guest 21 Avril 2008 #2 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: Code: 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 Dernière modification par un modérateur: 21 Avril 2008 Vote positif 0 Vote négatif
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: Code: 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 XLDnaute Barbatruc 21 Avril 2008 #3 Re : Mise en Forme Conditionnelle des Textbox d'un Userform Bonjour jofdm, Hasco une autre solution, en utilisant l'événement "exit" du textbox : Code: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.BackColor = IIf(TextBox1.Value = "OK", vbGreen, vbRed) End Sub bonne journée @+ Vote positif 0 Vote négatif
Re : Mise en Forme Conditionnelle des Textbox d'un Userform Bonjour jofdm, Hasco une autre solution, en utilisant l'événement "exit" du textbox : Code: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.BackColor = IIf(TextBox1.Value = "OK", vbGreen, vbRed) End Sub bonne journée @+
J jofdm XLDnaute Occasionnel 21 Avril 2008 #4 Re : Mise en Forme Conditionnelle des Textbox d'un Userform Merci beaucoup Vote positif 0 Vote négatif