Textbox et couleur

[thierry]

Bonjour
Dans un userform, est-il possible de changer la couleur d'un textbox par rapport à ce que l'on tape dedans.
Ex: si l'on tape "t" la textbox devient bleue, "d" jaune et "c" rouge. pour tout autre entrée la textbox reste verte.
Merci à tous

 

[myDearFriend]

Bonsoir Thierry,


Un petit exemple vaut mieux qu'un long discours...


Cordialement,
Didier_mDF

 

[thierry]

C'est exactement cela mais dans mon userform, j'ai 96 textbox ainsi, dois-je recopier le code 96 fois ?
MERCI

 

[myDearFriend]

Bonjour Thierry, le Forum.


Ci-joint l'exemple modifié en fonction de ta dernière question (cet exemple utilise 7 Textbox seulement, il conviendra de l'adapter à ton UserForm de 96 Textbox !) .
Il s'agit là de la façon la plus simple à comprendre et à mettre en place à mon avis.
Le principe est simple : autant de procédures KeyPress que de controles TextBox à gérer et pour chacune, une seule ligne de code :
txtCouleur KeyAscii, ActiveControl

Cette ligne de code appelle une routine de mise en forme commune pour toutes les Textbox :
Private Sub txtCouleur(ByVal K As Byte, Ctrl As Control)
Dim C As Long
Select Case Chr(K)
Case "t"
C = vbBlue
Case "d"
C = vbYellow
Case "c"
C = vbRed
Case Else
C = vbGreen
End Select
Ctrl.BackColor = C
End Sub


Cela dit, il est évident que la meilleure façon de faire (plus concise), serait de passer par un module de classe pour gérer un unique évènement Keypress commun à l'ensemble des TextBox. Mais, à mon avis, il te faudrait déjà une bonne maitrise de VBA avant de mettre en pratique ce type de méthode...


Cordialement,
Didier_mDF

 

[thierry]

Bravo et merci pour tout.
C'est exactement ce que je cherchais.
C'est sympa.