Private Sub tous_Change(txtb, bkcolor, fontcolor, mot$)
Dim X
With txtb
X = Abs(LCase(.Value) = mot)
.BackStyle = X
.BackColor = bkcolor(X)
.ForeColor = fontcolor(X)
End With
End Sub
Private Sub TextBox1_Change()
tous_Change TextBox1, Array(vbWhite, vbYellow), Array(vbBlack, vbRed), "oui"
End Sub
Private Sub TextBox2_Change()
tous_Change TextBox2, Array(vbWhite, vbBlue), Array(vbBlack, vbYellow), "toto"
End Sub
Private Sub TextBox3_Change()
tous_Change TextBox3, Array(vbWhite, vbBlue), Array(vbBlack, vbMagenta), "titi"
End Sub